Developer CD Series 1996 June: Reference Library

home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 June: Reference Library / Dev.CD Jun 96 RL / Dev.CD Jun 96 RL.toast / Technical Documentation / develop / develop Issue 6 / develop Issue 6 code / TCP.sea / TCP / NewsWatcher / NW Source / Source / group.c < prev next >
MacBinary | 1995-05-23 | 67.0 KB | [TEXT/MMCC]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
browse contents |
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).
Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	Compact Compressed (Unix) `(archive/compact)`	ext	Supported
`1%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, inited, Tue May 23 22:07:49 1995, modified Tue May 23 22:07:49 1995, creator 'MMCC', type ASCII, 67903 bytes "group.c" , at 0x109bf 410 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	dearkID	deark: macbinary	default
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[MMCC]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 07 67 72 6f 75 70 2e | 63 00 00 00 00 00 00 00 |..group.|c.......|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 4d 43 | 43 01 00 00 00 00 00 00 |.TEXTMMC|C.......|
|00000050| 00 00 00 00 01 09 3f 00 | 00 01 9a ab e8 45 75 ab |......?.|.....Eu.|
|00000060| e8 45 75 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.Eu.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 95 1f 00 00 |........|........|
|00000080| 2f 2a 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |/*------|--------|
|00000090| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0d 0d |--------|------..|
|000000d0| 09 67 72 6f 75 70 2e 63 | 0d 0d 09 54 68 69 73 20 |.group.c|...This |
|000000e0| 6d 6f 64 75 6c 65 20 68 | 61 6e 64 6c 65 73 20 67 |module h|andles g|
|000000f0| 72 6f 75 70 20 77 69 6e | 64 6f 77 73 2e 0d 09 0d |roup win|dows....|
|00000100| 09 43 6f 70 79 72 69 67 | 68 74 20 a9 20 31 39 39 |.Copyrig|ht . 199|
|00000110| 34 2d 31 39 39 35 2c 20 | 4e 6f 72 74 68 77 65 73 |4-1995, |Northwes|
|00000120| 74 65 72 6e 20 55 6e 69 | 76 65 72 73 69 74 79 2e |tern Uni|versity.|
|00000130| 0d 0d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |..------|--------|
|00000140| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000150| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000160| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000170| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2a 2f |--------|------*/|
|00000180| 0d 0d 23 69 6e 63 6c 75 | 64 65 20 3c 73 74 72 69 |..#inclu|de <stri|
|00000190| 6e 67 2e 68 3e 0d 23 69 | 6e 63 6c 75 64 65 20 3c |ng.h>.#i|nclude <|
|000001a0| 63 74 79 70 65 2e 68 3e | 0d 23 69 6e 63 6c 75 64 |ctype.h>|.#includ|
|000001b0| 65 20 3c 73 74 64 69 6f | 2e 68 3e 0d 0d 23 69 6e |e <stdio|.h>..#in|
|000001c0| 63 6c 75 64 65 20 22 67 | 6c 6f 62 2e 68 22 0d 23 |clude "g|lob.h".#|
|000001d0| 69 6e 63 6c 75 64 65 20 | 22 67 72 6f 75 70 2e 68 |include |"group.h|
|000001e0| 22 0d 23 69 6e 63 6c 75 | 64 65 20 22 77 69 6e 64 |".#inclu|de "wind|
|000001f0| 2e 68 22 0d 23 69 6e 63 | 6c 75 64 65 20 22 6e 65 |.h".#inc|lude "ne|
|00000200| 77 73 72 63 2e 68 22 0d | 23 69 6e 63 6c 75 64 65 |wsrc.h".|#include|
|00000210| 20 22 6e 65 77 73 77 61 | 74 63 68 65 72 2e 68 22 | "newswa|tcher.h"|
|00000220| 0d 23 69 6e 63 6c 75 64 | 65 20 22 6d 65 6e 75 73 |.#includ|e "menus|
|00000230| 2e 68 22 0d 23 69 6e 63 | 6c 75 64 65 20 22 6e 65 |.h".#inc|lude "ne|
|00000240| 78 74 2e 68 22 0d 23 69 | 6e 63 6c 75 64 65 20 22 |xt.h".#i|nclude "|
|00000250| 6d 61 72 6b 2e 68 22 0d | 23 69 6e 63 6c 75 64 65 |mark.h".|#include|
|00000260| 20 22 6e 65 77 61 72 74 | 2e 68 22 0d 23 69 6e 63 | "newart|.h".#inc|
|00000270| 6c 75 64 65 20 22 73 75 | 62 73 63 72 69 62 65 2e |lude "su|bscribe.|
|00000280| 68 22 0d 23 69 6e 63 6c | 75 64 65 20 22 73 65 61 |h".#incl|ude "sea|
|00000290| 72 63 68 2e 68 22 0d 23 | 69 6e 63 6c 75 64 65 20 |rch.h".#|include |
|000002a0| 22 6c 64 65 66 2e 68 22 | 0d 23 69 6e 63 6c 75 64 |"ldef.h"|.#includ|
|000002b0| 65 20 22 6f 6c 64 64 72 | 61 67 2e 68 22 0d 23 69 |e "olddr|ag.h".#i|
|000002c0| 6e 63 6c 75 64 65 20 22 | 64 69 61 6c 6f 67 2e 68 |nclude "|dialog.h|
|000002d0| 22 0d 23 69 6e 63 6c 75 | 64 65 20 22 73 75 62 6a |".#inclu|de "subj|
|000002e0| 65 63 74 2e 68 22 0d 23 | 69 6e 63 6c 75 64 65 20 |ect.h".#|include |
|000002f0| 22 64 72 61 77 75 74 69 | 6c 2e 68 22 0d 23 69 6e |"drawuti|l.h".#in|
|00000300| 63 6c 75 64 65 20 22 6d | 65 6d 75 74 69 6c 2e 68 |clude "m|emutil.h|
|00000310| 22 0d 23 69 6e 63 6c 75 | 64 65 20 22 6c 69 73 74 |".#inclu|de "list|
|00000320| 75 74 69 6c 2e 68 22 0d | 23 69 6e 63 6c 75 64 65 |util.h".|#include|
|00000330| 20 22 77 69 6e 64 75 74 | 69 6c 2e 68 22 0d 23 69 | "windut|il.h".#i|
|00000340| 6e 63 6c 75 64 65 20 22 | 74 65 73 63 72 6f 6c 6c |nclude "|tescroll|
|00000350| 2e 68 22 0d 23 69 6e 63 | 6c 75 64 65 20 22 73 74 |.h".#inc|lude "st|
|00000360| 72 75 74 69 6c 2e 68 22 | 0d 23 69 6e 63 6c 75 64 |rutil.h"|.#includ|
|00000370| 65 20 22 66 69 6c 65 75 | 74 69 6c 2e 68 22 0d 23 |e "fileu|til.h".#|
|00000380| 69 6e 63 6c 75 64 65 20 | 22 64 72 61 67 75 74 69 |include |"draguti|
|00000390| 6c 2e 68 22 0d 23 69 6e | 63 6c 75 64 65 20 22 72 |l.h".#in|clude "r|
|000003a0| 65 73 75 74 69 6c 2e 68 | 22 0d 23 69 6e 63 6c 75 |esutil.h|".#inclu|
|000003b0| 64 65 20 22 6b 65 79 2e | 68 22 0d 23 69 6e 63 6c |de "key.|h".#incl|
|000003c0| 75 64 65 20 22 69 63 2e | 68 22 0d 23 69 6e 63 6c |ude "ic.|h".#incl|
|000003d0| 75 64 65 20 22 68 65 6c | 70 2e 68 22 0d 0d 0d 0d |ude "hel|p.h"....|
|000003e0| 23 64 65 66 69 6e 65 20 | 6b 4d 61 78 46 65 74 63 |#define |kMaxFetc|
|000003f0| 68 44 69 61 6c 6f 67 09 | 09 31 33 39 0d 0d 23 64 |hDialog.|.139..#d|
|00000400| 65 66 69 6e 65 20 6b 46 | 69 6e 64 44 6c 67 09 09 |efine kF|indDlg..|
|00000410| 09 31 35 37 0d 23 64 65 | 66 69 6e 65 20 6b 46 69 |.157.#de|fine kFi|
|00000420| 6e 64 50 61 74 74 65 72 | 6e 09 09 34 0d 23 64 65 |ndPatter|n..4.#de|
|00000430| 66 69 6e 65 20 6b 53 74 | 61 72 74 41 74 42 65 67 |fine kSt|artAtBeg|
|00000440| 69 6e 6e 69 6e 67 09 35 | 0d 0d 23 64 65 66 69 6e |inning.5|..#defin|
|00000450| 65 20 6b 4d 61 78 41 72 | 74 69 63 6c 65 73 09 09 |e kMaxAr|ticles..|
|00000460| 34 0d 0d 23 64 65 66 69 | 6e 65 20 6b 4d 69 6e 57 |4..#defi|ne kMinW|
|00000470| 69 6e 64 6f 77 57 69 64 | 74 68 09 09 32 30 30 09 |indowWid|th..200.|
|00000480| 09 09 2f 2a 20 6d 69 6e | 69 6d 75 6d 20 77 69 6e |../* min|imum win|
|00000490| 64 6f 77 20 77 69 64 74 | 68 20 2a 2f 0d 0d 0d 0d |dow widt|h */....|
|000004a0| 73 74 61 74 69 63 20 42 | 6f 6f 6c 65 61 6e 20 67 |static B|oolean g|
|000004b0| 46 69 72 73 74 4c 69 73 | 74 43 6c 69 63 6b 43 61 |FirstLis|tClickCa|
|000004c0| 6c 6c 3b 09 09 2f 2a 20 | 74 72 75 65 20 69 66 20 |ll;../* |true if |
|000004d0| 66 69 72 73 74 20 63 61 | 6c 6c 20 74 6f 20 43 6c |first ca|ll to Cl|
|000004e0| 69 63 6b 4c 6f 6f 70 20 | 66 75 6e 63 74 69 6f 6e |ickLoop |function|
|000004f0| 20 2a 2f 0d 73 74 61 74 | 69 63 20 4f 53 45 72 72 | */.stat|ic OSErr|
|00000500| 20 67 43 6c 69 63 6b 4c | 6f 6f 70 45 72 72 3b 09 | gClickL|oopErr;.|
|00000510| 09 09 09 2f 2a 20 63 6c | 69 63 6b 20 6c 6f 6f 70 |.../* cl|ick loop|
|00000520| 20 65 72 72 6f 72 20 63 | 6f 64 65 20 2a 2f 0d 0d | error c|ode */..|
|00000530| 73 74 61 74 69 63 20 57 | 69 6e 64 6f 77 50 74 72 |static W|indowPtr|
|00000540| 20 67 44 72 61 67 53 72 | 63 57 69 6e 64 6f 77 3b | gDragSr|cWindow;|
|00000550| 09 09 2f 2a 20 70 6f 69 | 6e 74 65 72 20 74 6f 20 |../* poi|nter to |
|00000560| 64 72 61 67 20 73 6f 75 | 72 63 65 20 77 69 6e 64 |drag sou|rce wind|
|00000570| 6f 77 2c 20 6f 72 20 6e | 69 6c 0d 09 09 09 09 09 |ow, or n|il......|
|00000580| 09 09 09 09 20 20 20 20 | 20 20 20 69 73 20 73 6f |....    |   is so|
|00000590| 75 72 63 65 20 77 61 73 | 20 64 69 66 66 65 72 65 |urce was| differe|
|000005a0| 6e 74 20 61 70 70 6c 69 | 63 61 74 69 6f 6e 20 2a |nt appli|cation *|
|000005b0| 2f 0d 73 74 61 74 69 63 | 20 57 69 6e 64 6f 77 50 |/.static| WindowP|
|000005c0| 74 72 20 67 44 72 61 67 | 44 65 73 74 57 69 6e 64 |tr gDrag|DestWind|
|000005d0| 6f 77 3b 09 09 2f 2a 20 | 70 6f 69 6e 74 65 72 20 |ow;../* |pointer |
|000005e0| 74 6f 20 64 72 61 67 20 | 64 65 73 74 69 6e 61 74 |to drag |destinat|
|000005f0| 69 6f 6e 20 77 69 6e 64 | 6f 77 20 2a 2f 0d 73 74 |ion wind|ow */.st|
|00000600| 61 74 69 63 20 42 6f 6f | 6c 65 61 6e 20 67 44 72 |atic Boo|lean gDr|
|00000610| 61 67 4f 70 74 69 6f 6e | 4b 65 79 3b 09 09 09 2f |agOption|Key;.../|
|00000620| 2a 20 74 72 75 65 20 69 | 66 20 6f 70 74 69 6f 6e |* true i|f option|
|00000630| 2d 64 72 61 67 20 2a 2f | 0d 73 74 61 74 69 63 20 |-drag */|.static |
|00000640| 73 68 6f 72 74 20 67 44 | 72 61 67 44 65 73 74 52 |short gD|ragDestR|
|00000650| 6f 77 3b 09 09 09 09 2f | 2a 20 63 75 72 72 65 6e |ow;..../|* curren|
|00000660| 74 20 64 72 61 67 20 64 | 65 73 74 69 6e 61 74 69 |t drag d|estinati|
|00000670| 6f 6e 20 72 6f 77 20 2a | 2f 0d 73 74 61 74 69 63 |on row *|/.static|
|00000680| 20 73 68 6f 72 74 20 67 | 46 69 6e 61 6c 44 72 61 | short g|FinalDra|
|00000690| 67 44 65 73 74 52 6f 77 | 3b 09 09 09 2f 2a 20 66 |gDestRow|;.../* f|
|000006a0| 69 6e 61 6c 20 64 72 61 | 67 20 64 65 73 74 69 6e |inal dra|g destin|
|000006b0| 61 74 69 6f 6e 20 72 6f | 77 20 2a 2f 0d 73 74 61 |ation ro|w */.sta|
|000006c0| 74 69 63 20 48 61 6e 64 | 6c 65 20 67 44 72 61 67 |tic Hand|le gDrag|
|000006d0| 44 61 74 61 3b 09 09 09 | 09 2f 2a 20 68 61 6e 64 |Data;...|./* hand|
|000006e0| 6c 65 20 74 6f 20 64 72 | 61 67 20 64 61 74 61 20 |le to dr|ag data |
|000006f0| 2a 2f 0d 0d 73 74 61 74 | 69 63 20 4c 69 73 74 43 |*/..stat|ic ListC|
|00000700| 6c 69 63 6b 4c 6f 6f 70 | 55 50 50 20 67 47 72 6f |lickLoop|UPP gGro|
|00000710| 75 70 4c 69 73 74 43 6c | 69 63 6b 4c 6f 6f 70 55 |upListCl|ickLoopU|
|00000720| 50 50 3b 0d 73 74 61 74 | 69 63 20 4c 69 73 74 43 |PP;.stat|ic ListC|
|00000730| 6c 69 63 6b 4c 6f 6f 70 | 55 50 50 20 67 4f 6c 64 |lickLoop|UPP gOld|
|00000740| 4c 69 73 74 43 6c 69 63 | 6b 4c 6f 6f 70 55 50 50 |ListClic|kLoopUPP|
|00000750| 3b 0d 73 74 61 74 69 63 | 20 44 72 61 67 54 72 61 |;.static| DragTra|
|00000760| 63 6b 69 6e 67 48 61 6e | 64 6c 65 72 55 50 50 20 |ckingHan|dlerUPP |
|00000770| 67 48 61 6e 64 6c 65 54 | 72 61 63 6b 69 6e 67 55 |gHandleT|rackingU|
|00000780| 50 50 3b 0d 73 74 61 74 | 69 63 20 44 72 61 67 52 |PP;.stat|ic DragR|
|00000790| 65 63 65 69 76 65 48 61 | 6e 64 6c 65 72 55 50 50 |eceiveHa|ndlerUPP|
|000007a0| 20 67 48 61 6e 64 6c 65 | 52 65 63 65 69 76 65 55 | gHandle|ReceiveU|
|000007b0| 50 50 3b 0d 0d 0d 0d 2f | 2a 2d 2d 2d 2d 2d 2d 2d |PP;..../|*-------|
|000007c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000007d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000007e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000007f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000800| 2d 2d 2d 2d 2d 0d 09 44 | 6f 46 69 6e 64 44 69 61 |-----..D|oFindDia|
|00000810| 6c 6f 67 0d 09 0d 09 50 | 72 65 73 65 6e 74 20 74 |log....P|resent t|
|00000820| 68 65 20 66 69 6e 64 20 | 64 69 61 6c 6f 67 2e 0d |he find |dialog..|
|00000830| 09 09 09 0d 09 45 78 69 | 74 3a 09 66 75 6e 63 74 |.....Exi|t:.funct|
|00000840| 69 6f 6e 20 72 65 73 75 | 6c 74 20 3d 20 65 72 72 |ion resu|lt = err|
|00000850| 6f 72 20 63 6f 64 65 2e | 0d 09 09 09 67 46 69 6e |or code.|....gFin|
|00000860| 64 50 61 74 74 65 72 6e | 20 3d 20 73 65 61 72 63 |dPattern| = searc|
|00000870| 68 20 73 74 72 69 6e 67 | 2e 0d 2d 2d 2d 2d 2d 2d |h string|..------|
|00000880| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000890| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000008a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000008b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000008c0| 2d 2d 2d 2d 2d 2d 2a 2f | 0d 0d 4f 53 45 72 72 20 |------*/|..OSErr |
|000008d0| 44 6f 46 69 6e 64 44 69 | 61 6c 6f 67 20 28 76 6f |DoFindDi|alog (vo|
|000008e0| 69 64 29 0d 7b 0d 09 43 | 53 74 72 32 35 35 20 70 |id).{..C|Str255 p|
|000008f0| 61 74 74 65 72 6e 3b 0d | 09 44 69 61 6c 6f 67 50 |attern;.|.DialogP|
|00000900| 74 72 20 64 6c 67 20 3d | 20 6e 69 6c 3b 0d 09 73 |tr dlg =| nil;..s|
|00000910| 68 6f 72 74 20 69 74 65 | 6d 3b 0d 09 4f 53 45 72 |hort ite|m;..OSEr|
|00000920| 72 20 65 72 72 20 3d 20 | 6e 6f 45 72 72 3b 0d 09 |r err = |noErr;..|
|00000930| 45 76 65 6e 74 52 65 63 | 6f 72 64 20 65 76 3b 0d |EventRec|ord ev;.|
|00000940| 09 0d 09 65 72 72 20 3d | 20 4d 79 47 65 74 4e 65 |...err =| MyGetNe|
|00000950| 77 44 69 61 6c 6f 67 28 | 6b 46 69 6e 64 44 6c 67 |wDialog(|kFindDlg|
|00000960| 2c 20 6f 6b 2c 20 63 61 | 6e 63 65 6c 2c 20 26 64 |, ok, ca|ncel, &d|
|00000970| 6c 67 29 3b 0d 09 69 66 | 20 28 65 72 72 20 21 3d |lg);..if| (err !=|
|00000980| 20 6e 6f 45 72 72 29 20 | 72 65 74 75 72 6e 20 65 | noErr) |return e|
|00000990| 72 72 3b 0d 09 52 65 73 | 74 6f 72 65 4d 6f 76 61 |rr;..Res|toreMova|
|000009a0| 62 6c 65 4d 6f 64 61 6c | 44 69 61 6c 6f 67 50 6f |bleModal|DialogPo|
|000009b0| 73 69 74 69 6f 6e 28 64 | 6c 67 2c 20 67 50 72 65 |sition(d|lg, gPre|
|000009c0| 66 73 2e 66 69 6e 64 4c | 6f 63 29 3b 0d 09 73 74 |fs.findL|oc);..st|
|000009d0| 72 63 70 79 28 70 61 74 | 74 65 72 6e 2c 20 67 46 |rcpy(pat|tern, gF|
|000009e0| 69 6e 64 50 61 74 74 65 | 72 6e 29 3b 0d 0d 09 44 |indPatte|rn);...D|
|000009f0| 6c 67 53 65 74 43 53 74 | 72 69 6e 67 28 64 6c 67 |lgSetCSt|ring(dlg|
|00000a00| 2c 20 6b 46 69 6e 64 50 | 61 74 74 65 72 6e 2c 20 |, kFindP|attern, |
|00000a10| 70 61 74 74 65 72 6e 29 | 3b 0d 09 53 65 74 49 74 |pattern)|;..SetIt|
|00000a20| 65 6d 4d 61 78 4c 65 6e | 67 74 68 28 64 6c 67 2c |emMaxLen|gth(dlg,|
|00000a30| 20 6b 46 69 6e 64 50 61 | 74 74 65 72 6e 2c 20 32 | kFindPa|ttern, 2|
|00000a40| 35 35 29 3b 0d 09 44 6c | 67 53 65 74 43 68 65 63 |55);..Dl|gSetChec|
|00000a50| 6b 28 64 6c 67 2c 20 6b | 53 74 61 72 74 41 74 42 |k(dlg, k|StartAtB|
|00000a60| 65 67 69 6e 6e 69 6e 67 | 2c 20 67 50 72 65 66 73 |eginning|, gPrefs|
|00000a70| 2e 73 74 61 72 74 46 69 | 6e 64 41 74 42 65 67 69 |.startFi|ndAtBegi|
|00000a80| 6e 6e 69 6e 67 29 3b 0d | 09 53 65 6c 65 63 74 44 |nning);.|.SelectD|
|00000a90| 69 61 6c 6f 67 49 74 65 | 6d 54 65 78 74 28 64 6c |ialogIte|mText(dl|
|00000aa0| 67 2c 20 6b 46 69 6e 64 | 50 61 74 74 65 72 6e 2c |g, kFind|Pattern,|
|00000ab0| 20 30 2c 20 32 35 35 29 | 3b 0d 09 0d 09 64 6f 20 | 0, 255)|;....do |
|00000ac0| 7b 0d 09 09 44 6c 67 45 | 6e 61 62 6c 65 49 74 65 |{...DlgE|nableIte|
|00000ad0| 6d 28 64 6c 67 2c 20 6f | 6b 2c 20 2a 70 61 74 74 |m(dlg, o|k, *patt|
|00000ae0| 65 72 6e 20 21 3d 20 30 | 29 3b 0d 09 09 4d 79 4d |ern != 0|);...MyM|
|00000af0| 6f 76 61 62 6c 65 4d 6f | 64 61 6c 44 69 61 6c 6f |ovableMo|dalDialo|
|00000b00| 67 28 64 6c 67 2c 20 44 | 69 61 6c 6f 67 46 69 6c |g(dlg, D|ialogFil|
|00000b10| 74 65 72 2c 20 26 69 74 | 65 6d 29 3b 0d 09 09 73 |ter, &it|em);...s|
|00000b20| 77 69 74 63 68 20 28 69 | 74 65 6d 29 20 7b 0d 09 |witch (i|tem) {..|
|00000b30| 09 09 63 61 73 65 20 6b | 46 69 6e 64 50 61 74 74 |..case k|FindPatt|
|00000b40| 65 72 6e 3a 0d 09 09 09 | 09 44 6c 67 47 65 74 43 |ern:....|.DlgGetC|
|00000b50| 53 74 72 69 6e 67 28 64 | 6c 67 2c 20 6b 46 69 6e |String(d|lg, kFin|
|00000b60| 64 50 61 74 74 65 72 6e | 2c 20 70 61 74 74 65 72 |dPattern|, patter|
|00000b70| 6e 29 3b 0d 09 09 09 09 | 62 72 65 61 6b 3b 0d 09 |n);.....|break;..|
|00000b80| 09 09 63 61 73 65 20 6b | 53 74 61 72 74 41 74 42 |..case k|StartAtB|
|00000b90| 65 67 69 6e 6e 69 6e 67 | 3a 0d 09 09 09 09 44 6c |eginning|:.....Dl|
|00000ba0| 67 54 6f 67 67 6c 65 43 | 68 65 63 6b 28 64 6c 67 |gToggleC|heck(dlg|
|00000bb0| 2c 20 6b 53 74 61 72 74 | 41 74 42 65 67 69 6e 6e |, kStart|AtBeginn|
|00000bc0| 69 6e 67 29 3b 0d 09 09 | 09 09 62 72 65 61 6b 3b |ing);...|..break;|
|00000bd0| 0d 09 09 7d 0d 09 7d 20 | 77 68 69 6c 65 20 28 69 |...}..} |while (i|
|00000be0| 74 65 6d 20 21 3d 20 6f | 6b 20 26 26 20 69 74 65 |tem != o|k && ite|
|00000bf0| 6d 20 21 3d 20 63 61 6e | 63 65 6c 29 3b 0d 09 0d |m != can|cel);...|
|00000c00| 09 69 66 20 28 69 74 65 | 6d 20 3d 3d 20 6f 6b 29 |.if (ite|m == ok)|
|00000c10| 20 7b 0d 09 09 73 74 72 | 63 70 79 28 67 46 69 6e | {...str|cpy(gFin|
|00000c20| 64 50 61 74 74 65 72 6e | 2c 20 70 61 74 74 65 72 |dPattern|, patter|
|00000c30| 6e 29 3b 0d 09 09 67 50 | 72 65 66 73 2e 73 74 61 |n);...gP|refs.sta|
|00000c40| 72 74 46 69 6e 64 41 74 | 42 65 67 69 6e 6e 69 6e |rtFindAt|Beginnin|
|00000c50| 67 20 3d 20 44 6c 67 47 | 65 74 43 68 65 63 6b 28 |g = DlgG|etCheck(|
|00000c60| 64 6c 67 2c 20 6b 53 74 | 61 72 74 41 74 42 65 67 |dlg, kSt|artAtBeg|
|00000c70| 69 6e 6e 69 6e 67 29 3b | 0d 09 7d 0d 09 0d 09 53 |inning);|..}....S|
|00000c80| 61 76 65 4d 6f 76 61 62 | 6c 65 4d 6f 64 61 6c 44 |aveMovab|leModalD|
|00000c90| 69 61 6c 6f 67 50 6f 73 | 69 74 69 6f 6e 28 64 6c |ialogPos|ition(dl|
|00000ca0| 67 2c 20 26 67 50 72 65 | 66 73 2e 66 69 6e 64 4c |g, &gPre|fs.findL|
|00000cb0| 6f 63 29 3b 0d 09 65 72 | 72 20 3d 20 44 6f 43 6c |oc);..er|r = DoCl|
|00000cc0| 6f 73 65 28 64 6c 67 29 | 3b 0d 09 69 66 20 28 65 |ose(dlg)|;..if (e|
|00000cd0| 72 72 20 21 3d 20 6e 6f | 45 72 72 29 20 72 65 74 |rr != no|Err) ret|
|00000ce0| 75 72 6e 20 65 72 72 3b | 0d 09 0d 09 77 68 69 6c |urn err;|....whil|
|00000cf0| 65 20 28 57 61 69 74 4e | 65 78 74 45 76 65 6e 74 |e (WaitN|extEvent|
|00000d00| 28 61 63 74 69 76 4d 61 | 73 6b 20 7c 20 75 70 64 |(activMa|sk | upd|
|00000d10| 61 74 65 4d 61 73 6b 20 | 7c 20 6f 73 4d 61 73 6b |ateMask || osMask|
|00000d20| 2c 20 26 65 76 2c 20 30 | 2c 20 6e 69 6c 29 29 20 |, &ev, 0|, nil)) |
|00000d30| 0d 09 09 48 61 6e 64 6c | 65 45 76 65 6e 74 28 26 |...Handl|eEvent(&|
|00000d40| 65 76 29 3b 0d 09 0d 09 | 69 66 20 28 69 74 65 6d |ev);....|if (item|
|00000d50| 20 3d 3d 20 63 61 6e 63 | 65 6c 29 20 72 65 74 75 | == canc|el) retu|
|00000d60| 72 6e 20 75 73 65 72 43 | 61 6e 63 65 6c 65 64 45 |rn userC|anceledE|
|00000d70| 72 72 3b 0d 09 0d 09 72 | 65 74 75 72 6e 20 6e 6f |rr;....r|eturn no|
|00000d80| 45 72 72 3b 0d 7d 0d 0d | 0d 0d 2f 2a 2d 2d 2d 2d |Err;.}..|../*----|
|00000d90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000da0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000db0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000dc0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000dd0| 2d 2d 2d 2d 2d 2d 2d 2d | 0d 09 42 75 69 6c 64 47 |--------|..BuildG|
|00000de0| 72 6f 75 70 53 63 72 61 | 70 44 61 74 61 20 0d 09 |roupScra|pData ..|
|00000df0| 0d 09 42 75 69 6c 64 20 | 73 63 72 61 70 20 64 61 |..Build |scrap da|
|00000e00| 74 61 20 66 6f 72 20 61 | 6c 6c 20 74 68 65 20 73 |ta for a|ll the s|
|00000e10| 65 6c 65 63 74 65 64 20 | 67 72 6f 75 70 73 20 69 |elected |groups i|
|00000e20| 6e 20 61 20 67 72 6f 75 | 70 20 6c 69 73 74 20 77 |n a grou|p list w|
|00000e30| 69 6e 64 6f 77 2e 0d 09 | 09 09 0d 09 45 6e 74 72 |indow...|....Entr|
|00000e40| 79 3a 09 77 69 6e 64 20 | 3d 20 70 6f 69 6e 74 65 |y:.wind |= pointe|
|00000e50| 72 20 74 6f 20 67 72 6f | 75 70 20 6c 69 73 74 20 |r to gro|up list |
|00000e60| 77 69 6e 64 6f 77 2e 0d | 09 0d 09 45 78 69 74 3a |window..|...Exit:|
|00000e70| 09 66 75 6e 63 74 69 6f | 6e 20 72 65 73 75 6c 74 |.functio|n result|
|00000e80| 20 3d 20 65 72 72 6f 72 | 20 63 6f 64 65 2e 0d 09 | = error| code...|
|00000e90| 09 09 2a 70 72 69 76 61 | 74 65 53 63 72 61 70 20 |..*priva|teScrap |
|00000ea0| 3d 20 68 61 6e 64 6c 65 | 20 74 6f 20 70 72 69 76 |= handle| to priv|
|00000eb0| 61 74 65 20 74 79 70 65 | 20 27 4e 4e 54 50 27 20 |ate type| 'NNTP' |
|00000ec0| 73 63 72 61 70 20 64 61 | 74 61 20 66 6f 72 20 73 |scrap da|ta for s|
|00000ed0| 65 6c 65 63 74 65 64 20 | 67 72 6f 75 70 73 2e 0d |elected |groups..|
|00000ee0| 09 09 09 2a 70 75 62 6c | 69 63 53 63 72 61 70 20 |...*publ|icScrap |
|00000ef0| 3d 20 68 61 6e 64 6c 65 | 20 74 6f 20 70 75 62 6c |= handle| to publ|
|00000f00| 69 63 20 74 79 70 65 20 | 27 54 45 58 54 27 20 73 |ic type |'TEXT' s|
|00000f10| 63 72 61 70 20 64 61 74 | 61 20 66 6f 72 20 73 65 |crap dat|a for se|
|00000f20| 6c 65 63 74 65 64 20 67 | 72 6f 75 70 73 2e 0d 09 |lected g|roups...|
|00000f30| 09 09 0d 09 54 68 65 20 | 73 63 72 61 70 20 64 61 |....The |scrap da|
|00000f40| 74 61 20 69 73 20 75 73 | 65 64 20 66 6f 72 20 67 |ta is us|ed for g|
|00000f50| 72 6f 75 70 20 63 75 74 | 2f 63 6f 70 79 2f 70 61 |roup cut|/copy/pa|
|00000f60| 73 74 65 2c 20 61 6e 64 | 20 61 73 20 74 68 65 20 |ste, and| as the |
|00000f70| 66 6c 61 76 6f 72 0d 09 | 64 61 74 61 20 66 6f 72 |flavor..|data for|
|00000f80| 20 67 72 6f 75 70 20 64 | 72 61 67 73 2e 0d 09 0d | group d|rags....|
|00000f90| 09 54 68 65 20 66 6f 72 | 6d 61 74 20 6f 66 20 74 |.The for|mat of t|
|00000fa0| 68 65 20 70 72 69 76 61 | 74 65 20 27 4e 4e 54 50 |he priva|te 'NNTP|
|00000fb0| 27 20 73 63 72 61 70 20 | 64 61 74 61 20 69 73 3a |' scrap |data is:|
|00000fc0| 0d 09 0d 09 53 63 72 61 | 70 20 73 75 62 74 79 70 |....Scra|p subtyp|
|00000fd0| 65 20 28 6c 6f 6e 67 29 | 3a 20 27 47 52 55 50 27 |e (long)|: 'GRUP'|
|00000fe0| 0d 09 56 65 72 73 69 6f | 6e 20 6e 75 6d 62 65 72 |..Versio|n number|
|00000ff0| 20 6f 66 20 4e 65 77 73 | 57 61 74 63 68 65 72 20 | of News|Watcher |
|00001000| 77 68 69 63 68 20 63 72 | 65 61 74 65 64 20 74 68 |which cr|eated th|
|00001010| 65 20 73 63 72 61 70 20 | 64 61 74 61 20 28 75 6e |e scrap |data (un|
|00001020| 73 69 67 6e 65 64 20 6c | 6f 6e 67 29 2e 0d 09 4d |signed l|ong)...M|
|00001030| 69 6e 69 6d 75 6d 20 76 | 65 72 73 69 6f 6e 20 6e |inimum v|ersion n|
|00001040| 75 6d 62 65 72 20 6f 66 | 20 4e 65 77 73 57 61 74 |umber of| NewsWat|
|00001050| 63 68 65 72 20 77 68 69 | 63 68 20 63 61 6e 20 72 |cher whi|ch can r|
|00001060| 65 61 64 20 74 68 69 73 | 20 73 63 72 61 70 20 64 |ead this| scrap d|
|00001070| 61 74 61 0d 09 09 28 75 | 6e 73 69 67 6e 65 64 20 |ata...(u|nsigned |
|00001080| 6c 6f 6e 67 29 2e 0d 09 | 4e 75 6d 62 65 72 20 6f |long)...|Number o|
|00001090| 66 20 67 72 6f 75 70 73 | 20 69 6e 20 6c 69 73 74 |f groups| in list|
|000010a0| 20 28 6c 6f 6e 67 29 2e | 0d 09 0d 09 46 6f 72 20 | (long).|....For |
|000010b0| 65 61 63 68 20 67 72 6f | 75 70 20 69 6e 20 74 68 |each gro|up in th|
|000010c0| 65 20 6c 69 73 74 3a 0d | 09 0d 09 50 2d 66 6f 72 |e list:.|...P-for|
|000010d0| 6d 61 74 20 67 72 6f 75 | 70 20 6e 61 6d 65 20 73 |mat grou|p name s|
|000010e0| 74 72 69 6e 67 2c 20 72 | 6f 75 6e 64 65 64 20 75 |tring, r|ounded u|
|000010f0| 70 20 74 6f 20 6c 6f 6e | 67 77 6f 72 64 20 62 6f |p to lon|gword bo|
|00001100| 75 6e 64 61 72 79 2e 0d | 09 4c 6f 77 20 61 72 74 |undary..|.Low art|
|00001110| 69 63 6c 65 20 6e 75 6d | 62 65 72 20 28 6c 6f 6e |icle num|ber (lon|
|00001120| 67 29 2e 0d 09 48 69 67 | 68 20 61 72 74 69 63 6c |g)...Hig|h articl|
|00001130| 65 20 6e 75 6d 62 65 72 | 20 28 6c 6f 6e 67 29 2e |e number| (long).|
|00001140| 0d 09 4e 75 6d 62 65 72 | 20 6f 66 20 75 6e 72 65 |..Number| of unre|
|00001150| 61 64 20 61 72 74 69 63 | 6c 65 73 20 28 6c 6f 6e |ad artic|les (lon|
|00001160| 67 29 2e 0d 09 4e 75 6d | 62 65 72 20 6f 66 20 69 |g)...Num|ber of i|
|00001170| 74 65 6d 73 20 69 6e 20 | 6c 69 73 74 20 6f 66 20 |tems in |list of |
|00001180| 75 6e 72 65 61 64 20 61 | 72 74 69 63 6c 65 73 20 |unread a|rticles |
|00001190| 28 6c 6f 6e 67 29 2e 0d | 09 4c 69 73 74 20 6f 66 |(long)..|.List of|
|000011a0| 20 75 6e 72 65 61 64 20 | 61 72 74 69 63 6c 65 20 | unread |article |
|000011b0| 72 61 6e 67 65 73 20 28 | 74 77 6f 20 6c 6f 6e 67 |ranges (|two long|
|000011c0| 73 20 65 61 63 68 29 2e | 0d 09 0d 09 41 73 20 61 |s each).|....As a|
|000011d0| 20 73 70 65 63 69 61 6c | 20 63 61 73 65 2c 20 66 | special| case, f|
|000011e0| 6f 72 20 67 72 6f 75 70 | 73 20 63 6f 70 69 65 64 |or group|s copied|
|000011f0| 20 6f 72 20 64 72 61 67 | 67 65 64 20 66 72 6f 6d | or drag|ged from|
|00001200| 20 74 68 65 20 66 75 6c | 6c 20 67 72 6f 75 70 20 | the ful|l group |
|00001210| 6c 69 73 74 20 0d 09 6f | 72 20 66 72 6f 6d 20 74 |list ..o|r from t|
|00001220| 68 65 20 6e 65 77 20 67 | 72 6f 75 70 73 20 6c 69 |he new g|roups li|
|00001230| 73 74 3a 0d 09 0d 09 09 | 6c 6f 77 20 61 72 74 69 |st:.....|low arti|
|00001240| 63 6c 65 20 6e 75 6d 62 | 65 72 20 3d 20 2d 31 0d |cle numb|er = -1.|
|00001250| 09 09 68 69 67 68 20 61 | 72 74 69 63 6c 65 20 6e |..high a|rticle n|
|00001260| 75 6d 62 65 72 20 3d 20 | 30 0d 09 09 6e 75 6d 62 |umber = |0...numb|
|00001270| 65 72 20 6f 66 20 75 6e | 72 65 61 64 20 61 72 74 |er of un|read art|
|00001280| 69 63 6c 65 73 20 3d 20 | 30 0d 09 09 6e 75 6d 62 |icles = |0...numb|
|00001290| 65 72 20 6f 66 20 69 74 | 65 6d 73 20 69 6e 20 6c |er of it|ems in l|
|000012a0| 69 73 74 20 6f 66 20 75 | 6e 72 65 61 64 20 61 72 |ist of u|nread ar|
|000012b0| 74 69 63 6c 65 73 20 3d | 20 30 0d 09 0d 09 57 68 |ticles =| 0....Wh|
|000012c0| 65 6e 20 73 75 63 68 20 | 61 20 67 72 6f 75 70 20 |en such |a group |
|000012d0| 69 73 20 6c 61 74 65 72 | 20 69 6e 73 65 72 74 65 |is later| inserte|
|000012e0| 64 20 69 6e 74 6f 20 61 | 20 75 73 65 72 20 67 72 |d into a| user gr|
|000012f0| 6f 75 70 20 6c 69 73 74 | 2c 20 77 65 20 6d 75 73 |oup list|, we mus|
|00001300| 74 20 0d 09 71 75 65 72 | 79 20 74 68 65 20 73 65 |t ..quer|y the se|
|00001310| 72 76 65 72 20 74 6f 20 | 73 75 62 73 63 72 69 62 |rver to |subscrib|
|00001320| 65 20 74 6f 20 74 68 65 | 20 67 72 6f 75 70 2e 20 |e to the| group. |
|00001330| 0d 09 09 0d 09 54 68 65 | 20 70 75 62 6c 69 63 20 |.....The| public |
|00001340| 27 54 45 58 54 27 20 73 | 63 72 61 70 20 64 61 74 |'TEXT' s|crap dat|
|00001350| 61 20 69 73 20 61 20 6c | 69 73 74 20 6f 66 20 74 |a is a l|ist of t|
|00001360| 68 65 20 67 72 6f 75 70 | 20 6e 61 6d 65 73 20 73 |he group| names s|
|00001370| 65 70 61 72 61 74 65 64 | 20 62 79 0d 09 63 6f 6d |eparated| by..com|
|00001380| 6d 61 73 2e 0d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |mas..---|--------|
|00001390| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000013a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000013b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000013c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000013d0| 2d 2a 2f 0d 0d 73 74 61 | 74 69 63 20 4f 53 45 72 |-*/..sta|tic OSEr|
|000013e0| 72 20 42 75 69 6c 64 47 | 72 6f 75 70 53 63 72 61 |r BuildG|roupScra|
|000013f0| 70 44 61 74 61 20 28 57 | 69 6e 64 6f 77 50 74 72 |pData (W|indowPtr|
|00001400| 20 77 69 6e 64 2c 20 48 | 61 6e 64 6c 65 20 2a 70 | wind, H|andle *p|
|00001410| 72 69 76 61 74 65 53 63 | 72 61 70 2c 20 0d 09 48 |rivateSc|rap, ..H|
|00001420| 61 6e 64 6c 65 20 2a 70 | 75 62 6c 69 63 53 63 72 |andle *p|ublicScr|
|00001430| 61 70 29 0d 7b 0d 09 54 | 57 69 6e 64 6f 77 20 2a |ap).{..T|Window *|
|00001440| 2a 69 6e 66 6f 3b 0d 09 | 54 47 72 6f 75 70 20 2a |*info;..|TGroup *|
|00001450| 2a 67 72 6f 75 70 41 72 | 72 61 79 2c 20 74 68 65 |*groupAr|ray, the|
|00001460| 47 72 6f 75 70 3b 0d 09 | 4c 69 73 74 48 61 6e 64 |Group;..|ListHand|
|00001470| 6c 65 20 74 68 65 4c 69 | 73 74 3b 0d 09 48 61 6e |le theLi|st;..Han|
|00001480| 64 6c 65 20 70 72 69 20 | 3d 20 6e 69 6c 3b 0d 09 |dle pri |= nil;..|
|00001490| 6c 6f 6e 67 20 70 72 69 | 41 6c 6c 6f 63 61 74 65 |long pri|Allocate|
|000014a0| 64 2c 20 70 72 69 4e 65 | 78 74 3b 0d 09 48 61 6e |d, priNe|xt;..Han|
|000014b0| 64 6c 65 20 70 75 62 20 | 3d 20 6e 69 6c 3b 0d 09 |dle pub |= nil;..|
|000014c0| 6c 6f 6e 67 20 70 75 62 | 41 6c 6c 6f 63 61 74 65 |long pub|Allocate|
|000014d0| 64 2c 20 70 75 62 4e 65 | 78 74 3b 0d 09 43 65 6c |d, pubNe|xt;..Cel|
|000014e0| 6c 20 74 68 65 43 65 6c | 6c 3b 0d 09 73 68 6f 72 |l theCel|l;..shor|
|000014f0| 74 20 63 65 6c 6c 44 61 | 74 61 4c 65 6e 2c 20 69 |t cellDa|taLen, i|
|00001500| 6e 64 65 78 3b 0d 09 43 | 53 74 72 32 35 35 20 67 |ndex;..C|Str255 g|
|00001510| 72 6f 75 70 4e 61 6d 65 | 3b 0d 09 4f 53 45 72 72 |roupName|;..OSErr|
|00001520| 20 65 72 72 20 3d 20 6e | 6f 45 72 72 3b 0d 09 75 | err = n|oErr;..u|
|00001530| 6e 73 69 67 6e 65 64 20 | 6c 6f 6e 67 20 76 65 72 |nsigned |long ver|
|00001540| 73 4e 75 6d 62 65 72 3b | 0d 09 42 6f 6f 6c 65 61 |sNumber;|..Boolea|
|00001550| 6e 20 75 73 65 72 47 72 | 6f 75 70 4c 69 73 74 3b |n userGr|oupList;|
|00001560| 0d 09 6c 6f 6e 67 20 6e | 75 6d 47 72 6f 75 70 73 |..long n|umGroups|
|00001570| 3b 0d 09 6c 6f 6e 67 20 | 67 72 6f 75 70 4e 61 6d |;..long |groupNam|
|00001580| 65 4c 65 6e 3b 0d 09 6c | 6f 6e 67 20 62 79 74 65 |eLen;..l|ong byte|
|00001590| 73 4e 65 65 64 65 64 3b | 0d 09 54 55 6e 72 65 61 |sNeeded;|..TUnrea|
|000015a0| 64 20 2a 2a 75 6e 72 65 | 61 64 3b 0d 09 6c 6f 6e |d **unre|ad;..lon|
|000015b0| 67 20 6e 75 6d 55 6e 72 | 65 61 64 50 61 69 72 73 |g numUnr|eadPairs|
|000015c0| 3b 0d 09 0d 09 69 6e 66 | 6f 20 3d 20 28 54 57 69 |;....inf|o = (TWi|
|000015d0| 6e 64 6f 77 2a 2a 29 47 | 65 74 57 52 65 66 43 6f |ndow**)G|etWRefCo|
|000015e0| 6e 28 77 69 6e 64 29 3b | 0d 09 67 72 6f 75 70 41 |n(wind);|..groupA|
|000015f0| 72 72 61 79 20 3d 20 28 | 2a 2a 69 6e 66 6f 29 2e |rray = (|**info).|
|00001600| 67 72 6f 75 70 41 72 72 | 61 79 3b 0d 09 74 68 65 |groupArr|ay;..the|
|00001610| 4c 69 73 74 20 3d 20 28 | 2a 2a 69 6e 66 6f 29 2e |List = (|**info).|
|00001620| 74 68 65 4c 69 73 74 3b | 0d 09 75 73 65 72 47 72 |theList;|..userGr|
|00001630| 6f 75 70 4c 69 73 74 20 | 3d 20 28 2a 2a 69 6e 66 |oupList |= (**inf|
|00001640| 6f 29 2e 67 72 6f 75 70 | 4b 69 6e 64 20 3d 3d 20 |o).group|Kind == |
|00001650| 6b 55 73 65 72 47 72 6f | 75 70 3b 0d 09 6e 75 6d |kUserGro|up;..num|
|00001660| 47 72 6f 75 70 73 20 3d | 20 4e 75 6d 4c 69 73 74 |Groups =| NumList|
|00001670| 49 74 65 6d 73 53 65 6c | 65 63 74 65 64 28 74 68 |ItemsSel|ected(th|
|00001680| 65 4c 69 73 74 29 3b 0d | 09 0d 09 69 66 20 28 75 |eList);.|...if (u|
|00001690| 73 65 72 47 72 6f 75 70 | 4c 69 73 74 29 20 7b 0d |serGroup|List) {.|
|000016a0| 09 09 65 72 72 20 3d 20 | 55 70 64 61 74 65 41 6c |..err = |UpdateAl|
|000016b0| 6c 55 6e 72 65 61 64 4c | 69 73 74 73 28 77 69 6e |lUnreadL|ists(win|
|000016c0| 64 29 3b 0d 09 09 69 66 | 20 28 65 72 72 20 21 3d |d);...if| (err !=|
|000016d0| 20 6e 6f 45 72 72 29 20 | 67 6f 74 6f 20 65 78 69 | noErr) |goto exi|
|000016e0| 74 3b 0d 09 7d 0d 09 0d | 09 65 72 72 20 3d 20 4d |t;..}...|.err = M|
|000016f0| 79 4e 65 77 48 61 6e 64 | 6c 65 28 31 30 30 30 2c |yNewHand|le(1000,|
|00001700| 20 26 70 72 69 29 3b 0d | 09 69 66 20 28 65 72 72 | &pri);.|.if (err|
|00001710| 20 21 3d 20 6e 6f 45 72 | 72 29 20 67 6f 74 6f 20 | != noEr|r) goto |
|00001720| 65 78 69 74 3b 0d 09 70 | 72 69 41 6c 6c 6f 63 61 |exit;..p|riAlloca|
|00001730| 74 65 64 20 3d 20 31 30 | 30 30 3b 0d 09 70 72 69 |ted = 10|00;..pri|
|00001740| 4e 65 78 74 20 3d 20 30 | 3b 0d 09 0d 09 65 72 72 |Next = 0|;....err|
|00001750| 20 3d 20 4d 79 4e 65 77 | 48 61 6e 64 6c 65 28 31 | = MyNew|Handle(1|
|00001760| 30 30 30 2c 20 26 70 75 | 62 29 3b 0d 09 69 66 20 |000, &pu|b);..if |
|00001770| 28 65 72 72 20 21 3d 20 | 6e 6f 45 72 72 29 20 67 |(err != |noErr) g|
|00001780| 6f 74 6f 20 65 78 69 74 | 3b 0d 09 70 75 62 41 6c |oto exit|;..pubAl|
|00001790| 6c 6f 63 61 74 65 64 20 | 3d 20 31 30 30 30 3b 0d |located |= 1000;.|
|000017a0| 09 70 75 62 4e 65 78 74 | 20 3d 20 30 3b 0d 09 0d |.pubNext| = 0;...|
|000017b0| 09 2a 28 4f 53 54 79 70 | 65 2a 29 28 2a 70 72 69 |.*(OSTyp|e*)(*pri|
|000017c0| 20 2b 20 70 72 69 4e 65 | 78 74 29 20 3d 20 27 47 | + priNe|xt) = 'G|
|000017d0| 52 55 50 27 3b 0d 09 70 | 72 69 4e 65 78 74 20 2b |RUP';..p|riNext +|
|000017e0| 3d 20 73 69 7a 65 6f 66 | 28 4f 53 54 79 70 65 29 |= sizeof|(OSType)|
|000017f0| 3b 0d 09 0d 09 65 72 72 | 20 3d 20 47 65 74 56 65 |;....err| = GetVe|
|00001800| 72 73 69 6f 6e 4e 75 6d | 62 65 72 28 26 76 65 72 |rsionNum|ber(&ver|
|00001810| 73 4e 75 6d 62 65 72 29 | 3b 0d 09 69 66 20 28 65 |sNumber)|;..if (e|
|00001820| 72 72 20 21 3d 20 6e 6f | 45 72 72 29 20 67 6f 74 |rr != no|Err) got|
|00001830| 6f 20 65 78 69 74 3b 0d | 09 2a 28 75 6e 73 69 67 |o exit;.|.*(unsig|
|00001840| 6e 65 64 20 6c 6f 6e 67 | 2a 29 28 2a 70 72 69 20 |ned long|*)(*pri |
|00001850| 2b 20 70 72 69 4e 65 78 | 74 29 20 3d 20 76 65 72 |+ priNex|t) = ver|
|00001860| 73 4e 75 6d 62 65 72 3b | 0d 09 70 72 69 4e 65 78 |sNumber;|..priNex|
|00001870| 74 20 2b 3d 20 73 69 7a | 65 6f 66 28 75 6e 73 69 |t += siz|eof(unsi|
|00001880| 67 6e 65 64 20 6c 6f 6e | 67 29 3b 0d 09 0d 09 2a |gned lon|g);....*|
|00001890| 28 75 6e 73 69 67 6e 65 | 64 20 6c 6f 6e 67 2a 29 |(unsigne|d long*)|
|000018a0| 28 2a 70 72 69 20 2b 20 | 70 72 69 4e 65 78 74 29 |(*pri + |priNext)|
|000018b0| 20 3d 20 30 78 30 32 30 | 30 32 30 34 33 3b 20 2f | = 0x020|02043; /|
|000018c0| 2a 20 32 2e 30 64 34 33 | 20 2a 2f 0d 09 70 72 69 |* 2.0d43| */..pri|
|000018d0| 4e 65 78 74 20 2b 3d 20 | 73 69 7a 65 6f 66 28 75 |Next += |sizeof(u|
|000018e0| 6e 73 69 67 6e 65 64 20 | 6c 6f 6e 67 29 3b 0d 09 |nsigned |long);..|
|000018f0| 0d 09 2a 28 6c 6f 6e 67 | 2a 29 28 2a 70 72 69 20 |..*(long|*)(*pri |
|00001900| 2b 20 70 72 69 4e 65 78 | 74 29 20 3d 20 6e 75 6d |+ priNex|t) = num|
|00001910| 47 72 6f 75 70 73 3b 0d | 09 70 72 69 4e 65 78 74 |Groups;.|.priNext|
|00001920| 20 2b 3d 20 73 69 7a 65 | 6f 66 28 6c 6f 6e 67 29 | += size|of(long)|
|00001930| 3b 0d 0d 09 53 65 74 50 | 74 28 26 74 68 65 43 65 |;...SetP|t(&theCe|
|00001940| 6c 6c 2c 20 30 2c 20 30 | 29 3b 0d 09 0d 09 77 68 |ll, 0, 0|);....wh|
|00001950| 69 6c 65 20 28 4c 47 65 | 74 53 65 6c 65 63 74 28 |ile (LGe|tSelect(|
|00001960| 74 72 75 65 2c 20 26 74 | 68 65 43 65 6c 6c 2c 20 |true, &t|heCell, |
|00001970| 74 68 65 4c 69 73 74 29 | 29 20 7b 0d 09 0d 09 09 |theList)|) {.....|
|00001980| 63 65 6c 6c 44 61 74 61 | 4c 65 6e 20 3d 20 32 3b |cellData|Len = 2;|
|00001990| 0d 09 09 4c 47 65 74 43 | 65 6c 6c 28 26 69 6e 64 |...LGetC|ell(&ind|
|000019a0| 65 78 2c 20 26 63 65 6c | 6c 44 61 74 61 4c 65 6e |ex, &cel|lDataLen|
|000019b0| 2c 20 74 68 65 43 65 6c | 6c 2c 20 74 68 65 4c 69 |, theCel|l, theLi|
|000019c0| 73 74 29 3b 0d 09 09 74 | 68 65 47 72 6f 75 70 20 |st);...t|heGroup |
|000019d0| 3d 20 28 2a 67 72 6f 75 | 70 41 72 72 61 79 29 5b |= (*grou|pArray)[|
|000019e0| 69 6e 64 65 78 5d 3b 0d | 09 09 73 74 72 63 70 79 |index];.|..strcpy|
|000019f0| 28 67 72 6f 75 70 4e 61 | 6d 65 2c 20 2a 67 47 72 |(groupNa|me, *gGr|
|00001a00| 6f 75 70 4e 61 6d 65 73 | 20 2b 20 74 68 65 47 72 |oupNames| + theGr|
|00001a10| 6f 75 70 2e 6e 61 6d 65 | 4f 66 66 73 65 74 29 3b |oup.name|Offset);|
|00001a20| 0d 09 09 67 72 6f 75 70 | 4e 61 6d 65 4c 65 6e 20 |...group|NameLen |
|00001a30| 3d 20 73 74 72 6c 65 6e | 28 67 72 6f 75 70 4e 61 |= strlen|(groupNa|
|00001a40| 6d 65 29 3b 0d 09 09 0d | 09 09 62 79 74 65 73 4e |me);....|..bytesN|
|00001a50| 65 65 64 65 64 20 3d 20 | 67 72 6f 75 70 4e 61 6d |eeded = |groupNam|
|00001a60| 65 4c 65 6e 3b 0d 09 09 | 69 66 20 28 70 75 62 4e |eLen;...|if (pubN|
|00001a70| 65 78 74 20 21 3d 20 30 | 29 20 62 79 74 65 73 4e |ext != 0|) bytesN|
|00001a80| 65 65 64 65 64 20 2b 3d | 20 32 3b 0d 09 09 69 66 |eeded +=| 2;...if|
|00001a90| 20 28 70 75 62 4e 65 78 | 74 20 2b 20 62 79 74 65 | (pubNex|t + byte|
|00001aa0| 73 4e 65 65 64 65 64 20 | 3e 20 70 75 62 41 6c 6c |sNeeded |> pubAll|
|00001ab0| 6f 63 61 74 65 64 29 20 | 7b 0d 09 09 09 70 75 62 |ocated) |{....pub|
|00001ac0| 41 6c 6c 6f 63 61 74 65 | 64 20 2b 3d 20 31 30 30 |Allocate|d += 100|
|00001ad0| 30 3b 0d 09 09 09 65 72 | 72 20 3d 20 4d 79 53 65 |0;....er|r = MySe|
|00001ae0| 74 48 61 6e 64 6c 65 53 | 69 7a 65 28 70 75 62 2c |tHandleS|ize(pub,|
|00001af0| 20 70 75 62 41 6c 6c 6f | 63 61 74 65 64 29 3b 0d | pubAllo|cated);.|
|00001b00| 09 09 09 69 66 20 28 65 | 72 72 20 21 3d 20 6e 6f |...if (e|rr != no|
|00001b10| 45 72 72 29 20 67 6f 74 | 6f 20 65 78 69 74 3b 0d |Err) got|o exit;.|
|00001b20| 09 09 7d 0d 09 09 69 66 | 20 28 70 75 62 4e 65 78 |..}...if| (pubNex|
|00001b30| 74 20 21 3d 20 30 29 20 | 7b 0d 09 09 09 42 6c 6f |t != 0) |{....Blo|
|00001b40| 63 6b 4d 6f 76 65 44 61 | 74 61 28 22 2c 20 22 2c |ckMoveDa|ta(", ",|
|00001b50| 20 2a 70 75 62 20 2b 20 | 70 75 62 4e 65 78 74 2c | *pub + |pubNext,|
|00001b60| 20 32 29 3b 0d 09 09 09 | 70 75 62 4e 65 78 74 20 | 2);....|pubNext |
|00001b70| 2b 3d 20 32 3b 0d 09 09 | 7d 0d 09 09 42 6c 6f 63 |+= 2;...|}...Bloc|
|00001b80| 6b 4d 6f 76 65 44 61 74 | 61 28 67 72 6f 75 70 4e |kMoveDat|a(groupN|
|00001b90| 61 6d 65 2c 20 2a 70 75 | 62 20 2b 20 70 75 62 4e |ame, *pu|b + pubN|
|00001ba0| 65 78 74 2c 20 67 72 6f | 75 70 4e 61 6d 65 4c 65 |ext, gro|upNameLe|
|00001bb0| 6e 29 3b 0d 09 09 70 75 | 62 4e 65 78 74 20 2b 3d |n);...pu|bNext +=|
|00001bc0| 20 67 72 6f 75 70 4e 61 | 6d 65 4c 65 6e 3b 0d 09 | groupNa|meLen;..|
|00001bd0| 09 0d 09 09 62 79 74 65 | 73 4e 65 65 64 65 64 20 |....byte|sNeeded |
|00001be0| 3d 20 67 72 6f 75 70 4e | 61 6d 65 4c 65 6e 20 2b |= groupN|ameLen +|
|00001bf0| 20 31 3b 0d 09 09 62 79 | 74 65 73 4e 65 65 64 65 | 1;...by|tesNeede|
|00001c00| 64 20 3d 20 28 28 62 79 | 74 65 73 4e 65 65 64 65 |d = ((by|tesNeede|
|00001c10| 64 20 2b 20 33 29 20 3e | 3e 20 32 29 20 3c 3c 20 |d + 3) >|> 2) << |
|00001c20| 32 3b 0d 09 09 62 79 74 | 65 73 4e 65 65 64 65 64 |2;...byt|esNeeded|
|00001c30| 20 2b 3d 20 34 2a 73 69 | 7a 65 6f 66 28 6c 6f 6e | += 4*si|zeof(lon|
|00001c40| 67 29 3b 0d 09 09 69 66 | 20 28 75 73 65 72 47 72 |g);...if| (userGr|
|00001c50| 6f 75 70 4c 69 73 74 29 | 20 7b 0d 09 09 09 6e 75 |oupList)| {....nu|
|00001c60| 6d 55 6e 72 65 61 64 50 | 61 69 72 73 20 3d 20 30 |mUnreadP|airs = 0|
|00001c70| 3b 0d 09 09 09 66 6f 72 | 20 28 75 6e 72 65 61 64 |;....for| (unread|
|00001c80| 20 3d 20 74 68 65 47 72 | 6f 75 70 2e 75 6e 72 65 | = theGr|oup.unre|
|00001c90| 61 64 3b 20 75 6e 72 65 | 61 64 20 21 3d 20 6e 69 |ad; unre|ad != ni|
|00001ca0| 6c 3b 20 75 6e 72 65 61 | 64 20 3d 20 28 2a 2a 75 |l; unrea|d = (**u|
|00001cb0| 6e 72 65 61 64 29 2e 6e | 65 78 74 29 20 7b 0d 09 |nread).n|ext) {..|
|00001cc0| 09 09 09 62 79 74 65 73 | 4e 65 65 64 65 64 20 2b |...bytes|Needed +|
|00001cd0| 3d 20 32 2a 73 69 7a 65 | 6f 66 28 6c 6f 6e 67 29 |= 2*size|of(long)|
|00001ce0| 3b 0d 09 09 09 09 6e 75 | 6d 55 6e 72 65 61 64 50 |;.....nu|mUnreadP|
|00001cf0| 61 69 72 73 2b 2b 3b 0d | 09 09 09 7d 0d 09 09 7d |airs++;.|...}...}|
|00001d00| 0d 09 09 69 66 20 28 70 | 72 69 4e 65 78 74 20 2b |...if (p|riNext +|
|00001d10| 20 62 79 74 65 73 4e 65 | 65 64 65 64 20 3e 20 70 | bytesNe|eded > p|
|00001d20| 72 69 41 6c 6c 6f 63 61 | 74 65 64 29 20 7b 0d 09 |riAlloca|ted) {..|
|00001d30| 09 09 70 72 69 41 6c 6c | 6f 63 61 74 65 64 20 2b |..priAll|ocated +|
|00001d40| 3d 20 62 79 74 65 73 4e | 65 65 64 65 64 20 3e 20 |= bytesN|eeded > |
|00001d50| 31 30 30 30 20 3f 20 62 | 79 74 65 73 4e 65 65 64 |1000 ? b|ytesNeed|
|00001d60| 65 64 20 3a 20 31 30 30 | 30 3b 0d 09 09 09 65 72 |ed : 100|0;....er|
|00001d70| 72 20 3d 20 4d 79 53 65 | 74 48 61 6e 64 6c 65 53 |r = MySe|tHandleS|
|00001d80| 69 7a 65 28 70 72 69 2c | 20 70 72 69 41 6c 6c 6f |ize(pri,| priAllo|
|00001d90| 63 61 74 65 64 29 3b 0d | 09 09 09 69 66 20 28 65 |cated);.|...if (e|
|00001da0| 72 72 20 21 3d 20 6e 6f | 45 72 72 29 20 67 6f 74 |rr != no|Err) got|
|00001db0| 6f 20 65 78 69 74 3b 0d | 09 09 7d 0d 09 09 2a 28 |o exit;.|..}...*(|
|00001dc0| 2a 70 72 69 20 2b 20 70 | 72 69 4e 65 78 74 29 20 |*pri + p|riNext) |
|00001dd0| 3d 20 67 72 6f 75 70 4e | 61 6d 65 4c 65 6e 3b 0d |= groupN|ameLen;.|
|00001de0| 09 09 70 72 69 4e 65 78 | 74 2b 2b 3b 0d 09 09 42 |..priNex|t++;...B|
|00001df0| 6c 6f 63 6b 4d 6f 76 65 | 44 61 74 61 28 67 72 6f |lockMove|Data(gro|
|00001e00| 75 70 4e 61 6d 65 2c 20 | 2a 70 72 69 20 2b 20 70 |upName, |*pri + p|
|00001e10| 72 69 4e 65 78 74 2c 20 | 67 72 6f 75 70 4e 61 6d |riNext, |groupNam|
|00001e20| 65 4c 65 6e 29 3b 0d 09 | 09 70 72 69 4e 65 78 74 |eLen);..|.priNext|
|00001e30| 20 2b 3d 20 67 72 6f 75 | 70 4e 61 6d 65 4c 65 6e | += grou|pNameLen|
|00001e40| 3b 0d 09 09 70 72 69 4e | 65 78 74 20 3d 20 28 28 |;...priN|ext = ((|
|00001e50| 70 72 69 4e 65 78 74 20 | 2b 20 33 29 20 3e 3e 20 |priNext |+ 3) >> |
|00001e60| 32 29 20 3c 3c 20 32 3b | 0d 09 09 69 66 20 28 75 |2) << 2;|...if (u|
|00001e70| 73 65 72 47 72 6f 75 70 | 4c 69 73 74 29 20 7b 0d |serGroup|List) {.|
|00001e80| 09 09 09 2a 28 6c 6f 6e | 67 2a 29 28 2a 70 72 69 |...*(lon|g*)(*pri|
|00001e90| 20 2b 20 70 72 69 4e 65 | 78 74 29 20 3d 20 74 68 | + priNe|xt) = th|
|00001ea0| 65 47 72 6f 75 70 2e 66 | 69 72 73 74 4d 65 73 73 |eGroup.f|irstMess|
|00001eb0| 3b 0d 09 09 09 70 72 69 | 4e 65 78 74 20 2b 3d 20 |;....pri|Next += |
|00001ec0| 34 3b 0d 09 09 09 2a 28 | 6c 6f 6e 67 2a 29 28 2a |4;....*(|long*)(*|
|00001ed0| 70 72 69 20 2b 20 70 72 | 69 4e 65 78 74 29 20 3d |pri + pr|iNext) =|
|00001ee0| 20 74 68 65 47 72 6f 75 | 70 2e 6c 61 73 74 4d 65 | theGrou|p.lastMe|
|00001ef0| 73 73 3b 0d 09 09 09 70 | 72 69 4e 65 78 74 20 2b |ss;....p|riNext +|
|00001f00| 3d 20 34 3b 0d 09 09 09 | 2a 28 6c 6f 6e 67 2a 29 |= 4;....|*(long*)|
|00001f10| 28 2a 70 72 69 20 2b 20 | 70 72 69 4e 65 78 74 29 |(*pri + |priNext)|
|00001f20| 20 3d 20 74 68 65 47 72 | 6f 75 70 2e 6e 75 6d 55 | = theGr|oup.numU|
|00001f30| 6e 72 65 61 64 3b 0d 09 | 09 09 70 72 69 4e 65 78 |nread;..|..priNex|
|00001f40| 74 20 2b 3d 20 34 3b 0d | 09 09 09 2a 28 6c 6f 6e |t += 4;.|...*(lon|
|00001f50| 67 2a 29 28 2a 70 72 69 | 20 2b 20 70 72 69 4e 65 |g*)(*pri| + priNe|
|00001f60| 78 74 29 20 3d 20 6e 75 | 6d 55 6e 72 65 61 64 50 |xt) = nu|mUnreadP|
|00001f70| 61 69 72 73 3b 0d 09 09 | 09 70 72 69 4e 65 78 74 |airs;...|.priNext|
|00001f80| 20 2b 3d 20 34 3b 0d 09 | 09 09 66 6f 72 20 28 75 | += 4;..|..for (u|
|00001f90| 6e 72 65 61 64 20 3d 20 | 74 68 65 47 72 6f 75 70 |nread = |theGroup|
|00001fa0| 2e 75 6e 72 65 61 64 3b | 20 75 6e 72 65 61 64 20 |.unread;| unread |
|00001fb0| 21 3d 20 6e 69 6c 3b 20 | 75 6e 72 65 61 64 20 3d |!= nil; |unread =|
|00001fc0| 20 28 2a 2a 75 6e 72 65 | 61 64 29 2e 6e 65 78 74 | (**unre|ad).next|
|00001fd0| 29 20 7b 0d 09 09 09 09 | 2a 28 6c 6f 6e 67 2a 29 |) {.....|*(long*)|
|00001fe0| 28 2a 70 72 69 20 2b 20 | 70 72 69 4e 65 78 74 29 |(*pri + |priNext)|
|00001ff0| 20 3d 20 28 2a 2a 75 6e | 72 65 61 64 29 2e 66 69 | = (**un|read).fi|
|00002000| 72 73 74 55 6e 72 65 61 | 64 3b 0d 09 09 09 09 70 |rstUnrea|d;.....p|
|00002010| 72 69 4e 65 78 74 20 2b | 3d 20 34 3b 0d 09 09 09 |riNext +|= 4;....|
|00002020| 09 2a 28 6c 6f 6e 67 2a | 29 28 2a 70 72 69 20 2b |.*(long*|)(*pri +|
|00002030| 20 70 72 69 4e 65 78 74 | 29 20 3d 20 28 2a 2a 75 | priNext|) = (**u|
|00002040| 6e 72 65 61 64 29 2e 6c | 61 73 74 55 6e 72 65 61 |nread).l|astUnrea|
|00002050| 64 3b 0d 09 09 09 09 70 | 72 69 4e 65 78 74 20 2b |d;.....p|riNext +|
|00002060| 3d 20 34 3b 0d 09 09 09 | 7d 0d 09 09 7d 20 65 6c |= 4;....|}...} el|
|00002070| 73 65 20 7b 0d 09 09 09 | 2a 28 6c 6f 6e 67 2a 29 |se {....|*(long*)|
|00002080| 28 2a 70 72 69 20 2b 20 | 70 72 69 4e 65 78 74 29 |(*pri + |priNext)|
|00002090| 20 3d 20 2d 31 3b 0d 09 | 09 09 70 72 69 4e 65 78 | = -1;..|..priNex|
|000020a0| 74 20 2b 3d 20 34 3b 0d | 09 09 09 2a 28 6c 6f 6e |t += 4;.|...*(lon|
|000020b0| 67 2a 29 28 2a 70 72 69 | 20 2b 20 70 72 69 4e 65 |g*)(*pri| + priNe|
|000020c0| 78 74 29 20 3d 20 30 3b | 0d 09 09 09 70 72 69 4e |xt) = 0;|....priN|
|000020d0| 65 78 74 20 2b 3d 20 34 | 3b 0d 09 09 09 2a 28 6c |ext += 4|;....*(l|
|000020e0| 6f 6e 67 2a 29 28 2a 70 | 72 69 20 2b 20 70 72 69 |ong*)(*p|ri + pri|
|000020f0| 4e 65 78 74 29 20 3d 20 | 30 3b 0d 09 09 09 70 72 |Next) = |0;....pr|
|00002100| 69 4e 65 78 74 20 2b 3d | 20 34 3b 0d 09 09 09 2a |iNext +=| 4;....*|
|00002110| 28 6c 6f 6e 67 2a 29 28 | 2a 70 72 69 20 2b 20 70 |(long*)(|*pri + p|
|00002120| 72 69 4e 65 78 74 29 20 | 3d 20 30 3b 0d 09 09 09 |riNext) |= 0;....|
|00002130| 70 72 69 4e 65 78 74 20 | 2b 3d 20 34 3b 0d 09 09 |priNext |+= 4;...|
|00002140| 7d 0d 09 09 0d 09 09 74 | 68 65 43 65 6c 6c 2e 76 |}......t|heCell.v|
|00002150| 2b 2b 3b 0d 09 09 0d 09 | 7d 0d 09 0d 09 4d 79 53 |++;.....|}....MyS|
|00002160| 65 74 48 61 6e 64 6c 65 | 53 69 7a 65 28 70 72 69 |etHandle|Size(pri|
|00002170| 2c 20 70 72 69 4e 65 78 | 74 29 3b 0d 09 4d 79 53 |, priNex|t);..MyS|
|00002180| 65 74 48 61 6e 64 6c 65 | 53 69 7a 65 28 70 75 62 |etHandle|Size(pub|
|00002190| 2c 20 70 75 62 4e 65 78 | 74 29 3b 0d 09 2a 70 72 |, pubNex|t);..*pr|
|000021a0| 69 76 61 74 65 53 63 72 | 61 70 20 3d 20 70 72 69 |ivateScr|ap = pri|
|000021b0| 3b 0d 09 2a 70 75 62 6c | 69 63 53 63 72 61 70 20 |;..*publ|icScrap |
|000021c0| 3d 20 70 75 62 3b 0d 09 | 72 65 74 75 72 6e 20 6e |= pub;..|return n|
|000021d0| 6f 45 72 72 3b 0d 09 0d | 65 78 69 74 3a 0d 0d 09 |oErr;...|exit:...|
|000021e0| 4d 79 44 69 73 70 6f 73 | 65 48 61 6e 64 6c 65 28 |MyDispos|eHandle(|
|000021f0| 70 72 69 29 3b 0d 09 4d | 79 44 69 73 70 6f 73 65 |pri);..M|yDispose|
|00002200| 48 61 6e 64 6c 65 28 70 | 75 62 29 3b 0d 09 72 65 |Handle(p|ub);..re|
|00002210| 74 75 72 6e 20 65 72 72 | 3b 0d 7d 0d 0d 0d 0d 2f |turn err|;.}..../|
|00002220| 2a 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |*-------|--------|
|00002230| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002240| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002250| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002260| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 0d 09 43 |--------|-----..C|
|00002270| 68 65 63 6b 53 63 72 61 | 70 44 61 74 61 20 0d 09 |heckScra|pData ..|
|00002280| 0d 09 43 68 65 63 6b 20 | 73 63 72 61 70 20 64 61 |..Check |scrap da|
|00002290| 74 61 20 74 6f 20 6d 61 | 6b 65 20 73 75 72 65 20 |ta to ma|ke sure |
|000022a0| 69 74 20 69 73 20 76 61 | 6c 69 64 2e 20 49 73 73 |it is va|lid. Iss|
|000022b0| 75 65 20 61 6e 20 65 72 | 72 6f 72 20 6d 65 73 73 |ue an er|ror mess|
|000022c0| 61 67 65 20 69 66 0d 09 | 74 68 65 20 64 61 74 61 |age if..|the data|
|000022d0| 20 69 73 20 69 6e 76 61 | 6c 69 64 20 6f 72 20 63 | is inva|lid or c|
|000022e0| 61 6e 6e 6f 74 20 62 65 | 20 72 65 61 64 20 62 65 |annot be| read be|
|000022f0| 63 61 75 73 65 20 74 68 | 69 73 20 76 65 72 73 69 |cause th|is versi|
|00002300| 6f 6e 20 6f 66 20 4e 65 | 77 73 57 61 74 63 68 65 |on of Ne|wsWatche|
|00002310| 72 0d 09 69 73 20 74 6f | 6f 20 6f 6c 64 20 74 6f |r..is to|o old to|
|00002320| 20 75 6e 64 65 72 73 74 | 61 6e 64 20 74 68 65 20 | underst|and the |
|00002330| 64 61 74 61 20 66 6f 72 | 6d 61 74 2e 0d 09 09 09 |data for|mat.....|
|00002340| 0d 09 45 6e 74 72 79 3a | 09 64 61 74 61 20 3d 20 |..Entry:|.data = |
|00002350| 68 61 6e 64 6c 65 20 74 | 6f 20 73 63 72 61 70 20 |handle t|o scrap |
|00002360| 64 61 74 61 2e 0d 09 0d | 09 45 78 69 74 3a 09 66 |data....|.Exit:.f|
|00002370| 75 6e 63 74 69 6f 6e 20 | 72 65 73 75 6c 74 20 3d |unction |result =|
|00002380| 20 65 72 72 6f 72 20 63 | 6f 64 65 20 3d 20 6e 6f | error c|ode = no|
|00002390| 45 72 72 20 69 66 20 76 | 61 6c 69 64 2c 20 75 73 |Err if v|alid, us|
|000023a0| 65 72 43 61 6e 63 65 6c | 65 64 45 72 72 0d 09 09 |erCancel|edErr...|
|000023b0| 09 09 69 66 20 6e 6f 74 | 20 76 61 6c 69 64 2e 0d |..if not| valid..|
|000023c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000023d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000023e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000023f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002400| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2a 2f 0d 0d |--------|----*/..|
|00002410| 4f 53 45 72 72 20 43 68 | 65 63 6b 53 63 72 61 70 |OSErr Ch|eckScrap|
|00002420| 44 61 74 61 20 28 48 61 | 6e 64 6c 65 20 64 61 74 |Data (Ha|ndle dat|
|00002430| 61 29 0d 7b 0d 09 63 68 | 61 72 20 73 74 61 74 65 |a).{..ch|ar state|
|00002440| 3b 0d 09 50 74 72 20 70 | 2c 20 70 45 6e 64 3b 0d |;..Ptr p|, pEnd;.|
|00002450| 09 4f 53 54 79 70 65 20 | 73 75 62 54 79 70 65 3b |.OSType |subType;|
|00002460| 0d 09 75 6e 73 69 67 6e | 65 64 20 6c 6f 6e 67 20 |..unsign|ed long |
|00002470| 6d 69 6e 56 65 72 73 69 | 6f 6e 2c 20 6d 79 56 65 |minVersi|on, myVe|
|00002480| 72 73 69 6f 6e 3b 0d 09 | 6c 6f 6e 67 20 6e 75 6d |rsion;..|long num|
|00002490| 47 72 6f 75 70 73 3b 0d | 09 75 6e 73 69 67 6e 65 |Groups;.|.unsigne|
|000024a0| 64 20 63 68 61 72 20 67 | 72 6f 75 70 4e 61 6d 65 |d char g|roupName|
|000024b0| 4c 65 6e 3b 0d 09 6c 6f | 6e 67 20 66 69 72 73 74 |Len;..lo|ng first|
|000024c0| 4d 65 73 73 2c 20 6c 61 | 73 74 4d 65 73 73 2c 20 |Mess, la|stMess, |
|000024d0| 6e 75 6d 55 6e 72 65 61 | 64 3b 0d 09 6c 6f 6e 67 |numUnrea|d;..long|
|000024e0| 20 6e 75 6d 55 6e 72 65 | 61 64 50 61 69 72 73 2c | numUnre|adPairs,|
|000024f0| 20 70 72 65 76 4c 61 73 | 74 55 6e 72 65 61 64 2c | prevLas|tUnread,|
|00002500| 20 66 69 72 73 74 55 6e | 72 65 61 64 2c 20 6c 61 | firstUn|read, la|
|00002510| 73 74 55 6e 72 65 61 64 | 3b 0d 09 4f 53 45 72 72 |stUnread|;..OSErr|
|00002520| 20 65 72 72 20 3d 20 6e | 6f 45 72 72 3b 0d 0d 09 | err = n|oErr;...|
|00002530| 73 74 61 74 65 20 3d 20 | 4d 79 48 47 65 74 53 74 |state = |MyHGetSt|
|00002540| 61 74 65 28 64 61 74 61 | 29 3b 0d 09 4d 79 48 4c |ate(data|);..MyHL|
|00002550| 6f 63 6b 28 64 61 74 61 | 29 3b 0d 09 0d 09 70 20 |ock(data|);....p |
|00002560| 3d 20 2a 64 61 74 61 3b | 0d 09 70 45 6e 64 20 3d |= *data;|..pEnd =|
|00002570| 20 2a 64 61 74 61 20 2b | 20 4d 79 47 65 74 48 61 | *data +| MyGetHa|
|00002580| 6e 64 6c 65 53 69 7a 65 | 28 64 61 74 61 29 3b 0d |ndleSize|(data);.|
|00002590| 09 0d 09 73 75 62 54 79 | 70 65 20 3d 20 2a 28 4f |...subTy|pe = *(O|
|000025a0| 53 54 79 70 65 2a 29 70 | 3b 0d 09 70 20 2b 3d 20 |SType*)p|;..p += |
|000025b0| 73 69 7a 65 6f 66 28 4f | 53 54 79 70 65 29 3b 0d |sizeof(O|SType);.|
|000025c0| 09 69 66 20 28 70 20 3e | 20 70 45 6e 64 20 7c 7c |.if (p >| pEnd |||
|000025d0| 20 73 75 62 54 79 70 65 | 20 21 3d 20 27 47 52 55 | subType| != 'GRU|
|000025e0| 50 27 29 20 67 6f 74 6f | 20 65 78 69 74 3b 0d 09 |P') goto| exit;..|
|000025f0| 0d 09 70 20 2b 3d 20 73 | 69 7a 65 6f 66 28 75 6e |..p += s|izeof(un|
|00002600| 73 69 67 6e 65 64 20 6c | 6f 6e 67 29 3b 0d 09 69 |signed l|ong);..i|
|00002610| 66 20 28 70 20 3e 20 70 | 45 6e 64 29 20 67 6f 74 |f (p > p|End) got|
|00002620| 6f 20 65 78 69 74 3b 0d | 09 0d 09 6d 69 6e 56 65 |o exit;.|...minVe|
|00002630| 72 73 69 6f 6e 20 3d 20 | 2a 28 75 6e 73 69 67 6e |rsion = |*(unsign|
|00002640| 65 64 20 6c 6f 6e 67 2a | 29 70 3b 0d 09 70 20 2b |ed long*|)p;..p +|
|00002650| 3d 20 73 69 7a 65 6f 66 | 28 75 6e 73 69 67 6e 65 |= sizeof|(unsigne|
|00002660| 64 20 6c 6f 6e 67 29 3b | 0d 09 69 66 20 28 70 20 |d long);|..if (p |
|00002670| 3e 20 70 45 6e 64 29 20 | 67 6f 74 6f 20 65 78 69 |> pEnd) |goto exi|
|00002680| 74 3b 0d 09 65 72 72 20 | 3d 20 47 65 74 56 65 72 |t;..err |= GetVer|
|00002690| 73 69 6f 6e 4e 75 6d 62 | 65 72 28 26 6d 79 56 65 |sionNumb|er(&myVe|
|000026a0| 72 73 69 6f 6e 29 3b 0d | 09 69 66 20 28 65 72 72 |rsion);.|.if (err|
|000026b0| 20 21 3d 20 6e 6f 45 72 | 72 29 20 67 6f 74 6f 20 | != noEr|r) goto |
|000026c0| 65 78 69 74 3b 0d 09 69 | 66 20 28 6d 79 56 65 72 |exit;..i|f (myVer|
|000026d0| 73 69 6f 6e 20 3c 20 6d | 69 6e 56 65 72 73 69 6f |sion < m|inVersio|
|000026e0| 6e 29 20 67 6f 74 6f 20 | 65 78 69 74 3b 0d 09 0d |n) goto |exit;...|
|000026f0| 09 6e 75 6d 47 72 6f 75 | 70 73 20 3d 20 2a 28 6c |.numGrou|ps = *(l|
|00002700| 6f 6e 67 2a 29 70 3b 0d | 09 70 20 2b 3d 20 73 69 |ong*)p;.|.p += si|
|00002710| 7a 65 6f 66 28 6c 6f 6e | 67 29 3b 0d 09 69 66 20 |zeof(lon|g);..if |
|00002720| 28 70 20 3e 20 70 45 6e | 64 29 20 67 6f 74 6f 20 |(p > pEn|d) goto |
|00002730| 65 78 69 74 3b 0d 09 69 | 66 20 28 6e 75 6d 47 72 |exit;..i|f (numGr|
|00002740| 6f 75 70 73 20 3c 3d 20 | 30 20 7c 7c 20 6e 75 6d |oups <= |0 || num|
|00002750| 47 72 6f 75 70 73 20 3e | 20 30 78 37 66 66 66 29 |Groups >| 0x7fff)|
|00002760| 20 67 6f 74 6f 20 65 78 | 69 74 3b 0d 09 0d 09 77 | goto ex|it;....w|
|00002770| 68 69 6c 65 20 28 6e 75 | 6d 47 72 6f 75 70 73 2d |hile (nu|mGroups-|
|00002780| 2d 29 20 7b 0d 09 0d 09 | 09 67 72 6f 75 70 4e 61 |-) {....|.groupNa|
|00002790| 6d 65 4c 65 6e 20 3d 20 | 2a 28 75 6e 73 69 67 6e |meLen = |*(unsign|
|000027a0| 65 64 20 63 68 61 72 2a | 29 70 3b 0d 09 09 69 66 |ed char*|)p;...if|
|000027b0| 20 28 67 72 6f 75 70 4e | 61 6d 65 4c 65 6e 20 3d | (groupN|ameLen =|
|000027c0| 3d 20 30 29 20 67 6f 74 | 6f 20 65 78 69 74 3b 0d |= 0) got|o exit;.|
|000027d0| 09 09 67 72 6f 75 70 4e | 61 6d 65 4c 65 6e 2b 2b |..groupN|ameLen++|
|000027e0| 3b 0d 09 09 67 72 6f 75 | 70 4e 61 6d 65 4c 65 6e |;...grou|pNameLen|
|000027f0| 20 3d 20 28 28 67 72 6f | 75 70 4e 61 6d 65 4c 65 | = ((gro|upNameLe|
|00002800| 6e 20 2b 20 33 29 20 3e | 3e 20 32 29 20 3c 3c 20 |n + 3) >|> 2) << |
|00002810| 32 3b 0d 09 09 70 20 2b | 3d 20 67 72 6f 75 70 4e |2;...p +|= groupN|
|00002820| 61 6d 65 4c 65 6e 3b 0d | 09 09 69 66 20 28 70 20 |ameLen;.|..if (p |
|00002830| 3e 20 70 45 6e 64 29 20 | 67 6f 74 6f 20 65 78 69 |> pEnd) |goto exi|
|00002840| 74 3b 0d 09 09 0d 09 09 | 66 69 72 73 74 4d 65 73 |t;......|firstMes|
|00002850| 73 20 3d 20 2a 28 6c 6f | 6e 67 2a 29 70 3b 0d 09 |s = *(lo|ng*)p;..|
|00002860| 09 70 20 2b 3d 20 73 69 | 7a 65 6f 66 28 6c 6f 6e |.p += si|zeof(lon|
|00002870| 67 29 3b 0d 09 09 69 66 | 20 28 70 20 3e 20 70 45 |g);...if| (p > pE|
|00002880| 6e 64 20 7c 7c 20 66 69 | 72 73 74 4d 65 73 73 20 |nd || fi|rstMess |
|00002890| 3c 20 2d 31 29 20 67 6f | 74 6f 20 65 78 69 74 3b |< -1) go|to exit;|
|000028a0| 0d 09 09 0d 09 09 6c 61 | 73 74 4d 65 73 73 20 3d |......la|stMess =|
|000028b0| 20 2a 28 6c 6f 6e 67 2a | 29 70 3b 0d 09 09 70 20 | *(long*|)p;...p |
|000028c0| 2b 3d 20 73 69 7a 65 6f | 66 28 6c 6f 6e 67 29 3b |+= sizeo|f(long);|
|000028d0| 0d 09 09 69 66 20 28 70 | 20 3e 20 70 45 6e 64 20 |...if (p| > pEnd |
|000028e0| 7c 7c 20 6c 61 73 74 4d | 65 73 73 20 3c 20 30 29 ||| lastM|ess < 0)|
|000028f0| 20 67 6f 74 6f 20 65 78 | 69 74 3b 0d 09 09 0d 09 | goto ex|it;.....|
|00002900| 09 6e 75 6d 55 6e 72 65 | 61 64 20 3d 20 2a 28 6c |.numUnre|ad = *(l|
|00002910| 6f 6e 67 2a 29 70 3b 0d | 09 09 70 20 2b 3d 20 73 |ong*)p;.|..p += s|
|00002920| 69 7a 65 6f 66 28 6c 6f | 6e 67 29 3b 0d 09 09 69 |izeof(lo|ng);...i|
|00002930| 66 20 28 70 20 3e 20 70 | 45 6e 64 20 7c 7c 20 6e |f (p > p|End || n|
|00002940| 75 6d 55 6e 72 65 61 64 | 20 3c 20 30 29 20 67 6f |umUnread| < 0) go|
|00002950| 74 6f 20 65 78 69 74 3b | 0d 09 09 0d 09 09 6e 75 |to exit;|......nu|
|00002960| 6d 55 6e 72 65 61 64 50 | 61 69 72 73 20 3d 20 2a |mUnreadP|airs = *|
|00002970| 28 6c 6f 6e 67 2a 29 70 | 3b 0d 09 09 70 20 2b 3d |(long*)p|;...p +=|
|00002980| 20 73 69 7a 65 6f 66 28 | 6c 6f 6e 67 29 3b 0d 09 | sizeof(|long);..|
|00002990| 09 69 66 20 28 70 20 3e | 20 70 45 6e 64 20 7c 7c |.if (p >| pEnd |||
|000029a0| 20 6e 75 6d 55 6e 72 65 | 61 64 50 61 69 72 73 20 | numUnre|adPairs |
|000029b0| 3c 20 30 29 20 67 6f 74 | 6f 20 65 78 69 74 3b 0d |< 0) got|o exit;.|
|000029c0| 09 09 0d 09 09 70 72 65 | 76 4c 61 73 74 55 6e 72 |.....pre|vLastUnr|
|000029d0| 65 61 64 20 3d 20 2d 31 | 3b 0d 09 09 77 68 69 6c |ead = -1|;...whil|
|000029e0| 65 20 28 6e 75 6d 55 6e | 72 65 61 64 50 61 69 72 |e (numUn|readPair|
|000029f0| 73 2d 2d 29 20 7b 0d 09 | 09 09 66 69 72 73 74 55 |s--) {..|..firstU|
|00002a00| 6e 72 65 61 64 20 3d 20 | 2a 28 6c 6f 6e 67 2a 29 |nread = |*(long*)|
|00002a10| 70 3b 0d 09 09 09 70 20 | 2b 3d 20 73 69 7a 65 6f |p;....p |+= sizeo|
|00002a20| 66 28 6c 6f 6e 67 29 3b | 0d 09 09 09 69 66 20 28 |f(long);|....if (|
|00002a30| 70 20 3e 20 70 45 6e 64 | 20 7c 7c 20 66 69 72 73 |p > pEnd| || firs|
|00002a40| 74 55 6e 72 65 61 64 20 | 3c 20 30 29 20 67 6f 74 |tUnread |< 0) got|
|00002a50| 6f 20 65 78 69 74 3b 0d | 09 09 09 6c 61 73 74 55 |o exit;.|...lastU|
|00002a60| 6e 72 65 61 64 20 3d 20 | 2a 28 6c 6f 6e 67 2a 29 |nread = |*(long*)|
|00002a70| 70 3b 0d 09 09 09 70 20 | 2b 3d 20 73 69 7a 65 6f |p;....p |+= sizeo|
|00002a80| 66 28 6c 6f 6e 67 29 3b | 0d 09 09 09 69 66 20 28 |f(long);|....if (|
|00002a90| 70 20 3e 20 70 45 6e 64 | 20 7c 7c 20 6c 61 73 74 |p > pEnd| || last|
|00002aa0| 55 6e 72 65 61 64 20 3c | 20 30 29 20 67 6f 74 6f |Unread <| 0) goto|
|00002ab0| 20 65 78 69 74 3b 0d 09 | 09 09 69 66 20 28 66 69 | exit;..|..if (fi|
|00002ac0| 72 73 74 55 6e 72 65 61 | 64 20 3e 20 6c 61 73 74 |rstUnrea|d > last|
|00002ad0| 55 6e 72 65 61 64 29 20 | 67 6f 74 6f 20 65 78 69 |Unread) |goto exi|
|00002ae0| 74 3b 0d 09 09 09 69 66 | 20 28 66 69 72 73 74 55 |t;....if| (firstU|
|00002af0| 6e 72 65 61 64 20 3c 3d | 20 70 72 65 76 4c 61 73 |nread <=| prevLas|
|00002b00| 74 55 6e 72 65 61 64 29 | 20 67 6f 74 6f 20 65 78 |tUnread)| goto ex|
|00002b10| 69 74 3b 0d 09 09 09 70 | 72 65 76 4c 61 73 74 55 |it;....p|revLastU|
|00002b20| 6e 72 65 61 64 20 3d 20 | 6c 61 73 74 55 6e 72 65 |nread = |lastUnre|
|00002b30| 61 64 3b 0d 09 09 7d 0d | 09 7d 0d 09 0d 09 69 66 |ad;...}.|.}....if|
|00002b40| 20 28 70 20 21 3d 20 70 | 45 6e 64 29 20 67 6f 74 | (p != p|End) got|
|00002b50| 6f 20 65 78 69 74 3b 09 | 0d 09 09 0d 09 4d 79 48 |o exit;.|.....MyH|
|00002b60| 53 65 74 53 74 61 74 65 | 28 64 61 74 61 2c 20 73 |SetState|(data, s|
|00002b70| 74 61 74 65 29 3b 0d 09 | 72 65 74 75 72 6e 20 6e |tate);..|return n|
|00002b80| 6f 45 72 72 3b 0d 0d 65 | 78 69 74 3a 0d 0d 09 4d |oErr;..e|xit:...M|
|00002b90| 79 48 53 65 74 53 74 61 | 74 65 28 64 61 74 61 2c |yHSetSta|te(data,|
|00002ba0| 20 73 74 61 74 65 29 3b | 0d 09 45 72 72 6f 72 4d | state);|..ErrorM|
|00002bb0| 65 73 73 61 67 65 4e 75 | 6d 62 65 72 28 6b 53 74 |essageNu|mber(kSt|
|00002bc0| 72 42 61 64 53 63 72 61 | 70 44 61 74 61 29 3b 0d |rBadScra|pData);.|
|00002bd0| 09 72 65 74 75 72 6e 20 | 75 73 65 72 43 61 6e 63 |.return |userCanc|
|00002be0| 65 6c 65 64 45 72 72 3b | 0d 7d 0d 0d 0d 0d 2f 2a |eledErr;|.}..../*|
|00002bf0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002c00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002c10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002c20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002c30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 0d 09 44 69 |--------|----..Di|
|00002c40| 73 70 6f 73 65 47 72 6f | 75 70 55 6e 72 65 61 64 |sposeGro|upUnread|
|00002c50| 4c 69 73 74 20 0d 09 0d | 09 44 69 73 70 6f 73 65 |List ...|.Dispose|
|00002c60| 20 74 68 65 20 75 6e 72 | 65 61 64 20 6c 69 73 74 | the unr|ead list|
|00002c70| 20 66 6f 72 20 61 20 67 | 72 6f 75 70 2e 0d 09 09 | for a g|roup....|
|00002c80| 09 0d 09 45 6e 74 72 79 | 3a 09 74 68 65 47 72 6f |...Entry|:.theGro|
|00002c90| 75 70 20 3d 20 70 6f 69 | 6e 74 65 72 20 74 6f 20 |up = poi|nter to |
|00002ca0| 67 72 6f 75 70 20 72 65 | 63 6f 72 64 2e 0d 2d 2d |group re|cord..--|
|00002cb0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002cc0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002cd0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002ce0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002cf0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2a 2f 0d 0d 76 6f |--------|--*/..vo|
|00002d00| 69 64 20 44 69 73 70 6f | 73 65 47 72 6f 75 70 55 |id Dispo|seGroupU|
|00002d10| 6e 72 65 61 64 4c 69 73 | 74 20 28 54 47 72 6f 75 |nreadLis|t (TGrou|
|00002d20| 70 20 2a 74 68 65 47 72 | 6f 75 70 29 0d 7b 0d 09 |p *theGr|oup).{..|
|00002d30| 54 55 6e 72 65 61 64 20 | 2a 2a 70 55 6e 72 65 61 |TUnread |**pUnrea|
|00002d40| 64 52 65 63 2c 20 2a 2a | 71 55 6e 72 65 61 64 52 |dRec, **|qUnreadR|
|00002d50| 65 63 3b 0d 0d 09 70 55 | 6e 72 65 61 64 52 65 63 |ec;...pU|nreadRec|
|00002d60| 20 3d 20 74 68 65 47 72 | 6f 75 70 2d 3e 75 6e 72 | = theGr|oup->unr|
|00002d70| 65 61 64 3b 0d 09 77 68 | 69 6c 65 20 28 70 55 6e |ead;..wh|ile (pUn|
|00002d80| 72 65 61 64 52 65 63 20 | 21 3d 20 6e 69 6c 29 20 |readRec |!= nil) |
|00002d90| 7b 0d 09 09 71 55 6e 72 | 65 61 64 52 65 63 20 3d |{...qUnr|eadRec =|
|00002da0| 20 28 2a 2a 70 55 6e 72 | 65 61 64 52 65 63 29 2e | (**pUnr|eadRec).|
|00002db0| 6e 65 78 74 3b 0d 09 09 | 4d 79 44 69 73 70 6f 73 |next;...|MyDispos|
|00002dc0| 65 48 61 6e 64 6c 65 28 | 70 55 6e 72 65 61 64 52 |eHandle(|pUnreadR|
|00002dd0| 65 63 29 3b 0d 09 09 70 | 55 6e 72 65 61 64 52 65 |ec);...p|UnreadRe|
|00002de0| 63 20 3d 20 71 55 6e 72 | 65 61 64 52 65 63 3b 0d |c = qUnr|eadRec;.|
|00002df0| 09 7d 0d 09 74 68 65 47 | 72 6f 75 70 2d 3e 75 6e |.}..theG|roup->un|
|00002e00| 72 65 61 64 20 3d 20 6e | 69 6c 3b 0d 09 74 68 65 |read = n|il;..the|
|00002e10| 47 72 6f 75 70 2d 3e 6e | 75 6d 55 6e 72 65 61 64 |Group->n|umUnread|
|00002e20| 20 3d 20 30 3b 0d 7d 0d | 0d 0d 0d 2f 2a 2d 2d 2d | = 0;.}.|.../*---|
|00002e30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002e40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002e50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002e60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002e70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 09 44 69 73 70 6f |--------|-..Dispo|
|00002e80| 73 65 47 72 6f 75 70 41 | 72 72 61 79 20 0d 09 0d |seGroupA|rray ...|
|00002e90| 09 44 69 73 70 6f 73 65 | 20 61 20 67 72 6f 75 70 |.Dispose| a group|
|00002ea0| 20 61 72 72 61 79 2e 0d | 09 09 09 0d 09 45 6e 74 | array..|.....Ent|
|00002eb0| 72 79 3a 09 67 72 6f 75 | 70 41 72 72 61 79 20 3d |ry:.grou|pArray =|
|00002ec0| 20 68 61 6e 64 6c 65 20 | 74 6f 20 67 72 6f 75 70 | handle |to group|
|00002ed0| 20 61 72 72 61 79 2e 0d | 09 09 09 6e 75 6d 47 72 | array..|...numGr|
|00002ee0| 6f 75 70 73 20 3d 20 6e | 75 6d 62 65 72 20 6f 66 |oups = n|umber of|
|00002ef0| 20 67 72 6f 75 70 73 20 | 69 6e 20 61 72 72 61 79 | groups |in array|
|00002f00| 2e 0d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |..------|--------|
|00002f10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002f20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002f30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002f40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2a 2f |--------|------*/|
|00002f50| 0d 0d 76 6f 69 64 20 44 | 69 73 70 6f 73 65 47 72 |..void D|isposeGr|
|00002f60| 6f 75 70 41 72 72 61 79 | 20 28 54 47 72 6f 75 70 |oupArray| (TGroup|
|00002f70| 20 2a 2a 67 72 6f 75 70 | 41 72 72 61 79 2c 20 73 | **group|Array, s|
|00002f80| 68 6f 72 74 20 6e 75 6d | 47 72 6f 75 70 73 29 0d |hort num|Groups).|
|00002f90| 7b 0d 09 54 47 72 6f 75 | 70 20 2a 70 2c 20 2a 70 |{..TGrou|p *p, *p|
|00002fa0| 45 6e 64 3b 0d 09 0d 09 | 69 66 20 28 67 72 6f 75 |End;....|if (grou|
|00002fb0| 70 41 72 72 61 79 20 3d | 3d 20 6e 69 6c 29 20 72 |pArray =|= nil) r|
|00002fc0| 65 74 75 72 6e 3b 0d 09 | 4d 79 48 4c 6f 63 6b 28 |eturn;..|MyHLock(|
|00002fd0| 67 72 6f 75 70 41 72 72 | 61 79 29 3b 0d 09 66 6f |groupArr|ay);..fo|
|00002fe0| 72 20 28 70 20 3d 20 2a | 67 72 6f 75 70 41 72 72 |r (p = *|groupArr|
|00002ff0| 61 79 2c 20 70 45 6e 64 | 20 3d 20 70 20 2b 20 6e |ay, pEnd| = p + n|
|00003000| 75 6d 47 72 6f 75 70 73 | 3b 20 70 20 3c 20 70 45 |umGroups|; p < pE|
|00003010| 6e 64 3b 20 70 2b 2b 29 | 0d 09 09 44 69 73 70 6f |nd; p++)|...Dispo|
|00003020| 73 65 47 72 6f 75 70 55 | 6e 72 65 61 64 4c 69 73 |seGroupU|nreadLis|
|00003030| 74 28 70 29 3b 0d 09 4d | 79 44 69 73 70 6f 73 65 |t(p);..M|yDispose|
|00003040| 48 61 6e 64 6c 65 28 67 | 72 6f 75 70 41 72 72 61 |Handle(g|roupArra|
|00003050| 79 29 3b 0d 7d 0d 0d 0d | 0d 2f 2a 2d 2d 2d 2d 2d |y);.}...|./*-----|
|00003060| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003070| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003080| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003090| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000030a0| 2d 2d 2d 2d 2d 2d 2d 0d | 09 46 69 78 48 65 69 67 |-------.|.FixHeig|
|000030b0| 68 74 20 0d 09 0d 09 52 | 6f 75 6e 64 20 64 6f 77 |ht ....R|ound dow|
|000030c0| 6e 20 77 69 6e 64 6f 77 | 20 68 65 69 67 68 74 20 |n window| height |
|000030d0| 74 6f 20 61 6e 20 65 78 | 61 63 74 20 6d 75 6c 74 |to an ex|act mult|
|000030e0| 69 70 6c 65 20 6f 66 20 | 6c 69 6e 65 73 2e 0d 09 |iple of |lines...|
|000030f0| 09 09 0d 09 45 6e 74 72 | 79 3a 09 77 69 6e 64 20 |....Entr|y:.wind |
|00003100| 3d 20 70 6f 69 6e 74 65 | 72 20 74 6f 20 67 72 6f |= pointe|r to gro|
|00003110| 75 70 20 77 69 6e 64 6f | 77 2e 0d 09 09 09 2a 68 |up windo|w.....*h|
|00003120| 65 69 67 68 74 20 3d 20 | 77 69 6e 64 6f 77 20 68 |eight = |window h|
|00003130| 65 69 67 68 74 2e 0d 09 | 09 09 0d 09 45 78 69 74 |eight...|....Exit|
|00003140| 3a 09 2a 68 65 69 67 68 | 74 20 3d 20 61 64 6a 75 |:.*heigh|t = adju|
|00003150| 73 74 65 64 20 77 69 6e | 64 6f 77 20 68 65 69 67 |sted win|dow heig|
|00003160| 68 74 0d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ht.-----|--------|
|00003170| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003180| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003190| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000031a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2a |--------|-------*|
|000031b0| 2f 0d 0d 73 74 61 74 69 | 63 20 76 6f 69 64 20 46 |/..stati|c void F|
|000031c0| 69 78 48 65 69 67 68 74 | 20 28 57 69 6e 64 6f 77 |ixHeight| (Window|
|000031d0| 50 74 72 20 77 69 6e 64 | 2c 20 73 68 6f 72 74 20 |Ptr wind|, short |
|000031e0| 2a 68 65 69 67 68 74 29 | 0d 7b 0d 09 54 57 69 6e |*height)|.{..TWin|
|000031f0| 64 6f 77 20 2a 2a 69 6e | 66 6f 3b 0d 09 73 68 6f |dow **in|fo;..sho|
|00003200| 72 74 20 70 61 6e 65 6c | 48 65 69 67 68 74 2c 20 |rt panel|Height, |
|00003210| 6c 69 6e 65 48 65 69 67 | 68 74 2c 20 61 64 6a 75 |lineHeig|ht, adju|
|00003220| 73 74 3b 0d 0d 09 69 6e | 66 6f 20 3d 20 28 54 57 |st;...in|fo = (TW|
|00003230| 69 6e 64 6f 77 2a 2a 29 | 47 65 74 57 52 65 66 43 |indow**)|GetWRefC|
|00003240| 6f 6e 28 77 69 6e 64 29 | 3b 0d 09 70 61 6e 65 6c |on(wind)|;..panel|
|00003250| 48 65 69 67 68 74 20 3d | 20 28 2a 2a 69 6e 66 6f |Height =| (**info|
|00003260| 29 2e 70 61 6e 65 6c 48 | 65 69 67 68 74 3b 0d 09 |).panelH|eight;..|
|00003270| 6c 69 6e 65 48 65 69 67 | 68 74 20 3d 20 47 65 74 |lineHeig|ht = Get|
|00003280| 46 6f 6e 74 4c 69 6e 65 | 48 65 69 67 68 74 28 77 |FontLine|Height(w|
|00003290| 69 6e 64 29 3b 0d 09 61 | 64 6a 75 73 74 20 3d 20 |ind);..a|djust = |
|000032a0| 70 61 6e 65 6c 48 65 69 | 67 68 74 20 2b 20 31 35 |panelHei|ght + 15|
|000032b0| 3b 0d 09 2a 68 65 69 67 | 68 74 20 3d 20 28 2a 68 |;..*heig|ht = (*h|
|000032c0| 65 69 67 68 74 20 2d 20 | 61 64 6a 75 73 74 29 20 |eight - |adjust) |
|000032d0| 2f 20 6c 69 6e 65 48 65 | 69 67 68 74 20 2a 20 6c |/ lineHe|ight * l|
|000032e0| 69 6e 65 48 65 69 67 68 | 74 20 2b 20 61 64 6a 75 |ineHeigh|t + adju|
|000032f0| 73 74 3b 0d 7d 0d 0d 0d | 0d 2f 2a 2d 2d 2d 2d 2d |st;.}...|./*-----|
|00003300| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003310| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003320| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003330| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003340| 2d 2d 2d 2d 2d 2d 2d 0d | 09 4d 69 6e 48 65 69 67 |-------.|.MinHeig|
|00003350| 68 74 20 0d 09 0d 09 43 | 6f 6d 70 75 74 65 20 74 |ht ....C|ompute t|
|00003360| 68 65 20 6d 69 6e 69 6d | 75 6d 20 68 65 69 67 68 |he minim|um heigh|
|00003370| 74 20 6f 66 20 61 20 67 | 72 6f 75 70 20 77 69 6e |t of a g|roup win|
|00003380| 64 6f 77 2e 0d 09 09 09 | 0d 09 45 6e 74 72 79 3a |dow.....|..Entry:|
|00003390| 09 77 69 6e 64 20 3d 20 | 70 6f 69 6e 74 65 72 20 |.wind = |pointer |
|000033a0| 74 6f 20 67 72 6f 75 70 | 20 77 69 6e 64 6f 77 2e |to group| window.|
|000033b0| 0d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.-------|--------|
|000033c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000033d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000033e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000033f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2a 2f 0d |--------|-----*/.|
|00003400| 0d 73 74 61 74 69 63 20 | 73 68 6f 72 74 20 4d 69 |.static |short Mi|
|00003410| 6e 48 65 69 67 68 74 20 | 28 57 69 6e 64 6f 77 50 |nHeight |(WindowP|
|00003420| 74 72 20 77 69 6e 64 29 | 0d 7b 0d 09 54 57 69 6e |tr wind)|.{..TWin|
|00003430| 64 6f 77 20 2a 2a 69 6e | 66 6f 3b 0d 09 73 68 6f |dow **in|fo;..sho|
|00003440| 72 74 20 6c 69 6e 65 48 | 65 69 67 68 74 2c 20 68 |rt lineH|eight, h|
|00003450| 65 69 67 68 74 2c 20 65 | 78 74 72 61 3b 0d 09 0d |eight, e|xtra;...|
|00003460| 09 69 6e 66 6f 20 3d 20 | 28 54 57 69 6e 64 6f 77 |.info = |(TWindow|
|00003470| 2a 2a 29 47 65 74 57 52 | 65 66 43 6f 6e 28 77 69 |**)GetWR|efCon(wi|
|00003480| 6e 64 29 3b 0d 09 6c 69 | 6e 65 48 65 69 67 68 74 |nd);..li|neHeight|
|00003490| 20 3d 20 47 65 74 46 6f | 6e 74 4c 69 6e 65 48 65 | = GetFo|ntLineHe|
|000034a0| 69 67 68 74 28 77 69 6e | 64 29 3b 0d 09 65 78 74 |ight(win|d);..ext|
|000034b0| 72 61 20 3d 20 6c 69 6e | 65 48 65 69 67 68 74 20 |ra = lin|eHeight |
|000034c0| 2b 20 31 35 3b 0d 09 69 | 66 20 28 65 78 74 72 61 |+ 15;..i|f (extra|
|000034d0| 20 3c 20 36 35 29 20 65 | 78 74 72 61 20 3d 20 36 | < 65) e|xtra = 6|
|000034e0| 35 20 2b 20 6c 69 6e 65 | 48 65 69 67 68 74 3b 0d |5 + line|Height;.|
|000034f0| 09 68 65 69 67 68 74 20 | 3d 20 28 2a 2a 69 6e 66 |.height |= (**inf|
|00003500| 6f 29 2e 70 61 6e 65 6c | 48 65 69 67 68 74 20 2b |o).panel|Height +|
|00003510| 20 65 78 74 72 61 3b 0d | 09 46 69 78 48 65 69 67 | extra;.|.FixHeig|
|00003520| 68 74 28 77 69 6e 64 2c | 20 26 68 65 69 67 68 74 |ht(wind,| &height|
|00003530| 29 3b 0d 09 72 65 74 75 | 72 6e 20 68 65 69 67 68 |);..retu|rn heigh|
|00003540| 74 3b 0d 7d 0d 0d 0d 0d | 2f 2a 2d 2d 2d 2d 2d 2d |t;.}....|/*------|
|00003550| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003560| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003570| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003580| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003590| 2d 2d 2d 2d 2d 2d 0d 09 | 53 63 72 6f 6c 6c 20 0d |------..|Scroll .|
|000035a0| 09 0d 09 53 63 72 6f 6c | 6c 20 61 20 67 72 6f 75 |...Scrol|l a grou|
|000035b0| 70 20 77 69 6e 64 6f 77 | 2e 0d 09 09 09 0d 09 45 |p window|.......E|
|000035c0| 6e 74 72 79 3a 09 77 69 | 6e 64 20 3d 20 70 6f 69 |ntry:.wi|nd = poi|
|000035d0| 6e 74 65 72 20 74 6f 20 | 67 72 6f 75 70 20 77 69 |nter to |group wi|
|000035e0| 6e 64 6f 77 2e 0d 09 09 | 09 70 61 72 74 20 3d 20 |ndow....|.part = |
|000035f0| 70 61 72 74 20 63 6f 64 | 65 2e 0d 2d 2d 2d 2d 2d |part cod|e..-----|
|00003600| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003610| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003620| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003630| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003640| 2d 2d 2d 2d 2d 2d 2d 2a | 2f 0d 0d 73 74 61 74 69 |-------*|/..stati|
|00003650| 63 20 76 6f 69 64 20 53 | 63 72 6f 6c 6c 20 28 57 |c void S|croll (W|
|00003660| 69 6e 64 6f 77 50 74 72 | 20 77 69 6e 64 2c 20 73 |indowPtr| wind, s|
|00003670| 68 6f 72 74 20 70 61 72 | 74 29 0d 7b 0d 09 54 57 |hort par|t).{..TW|
|00003680| 69 6e 64 6f 77 20 2a 2a | 69 6e 66 6f 3b 0d 09 4c |indow **|info;..L|
|00003690| 69 73 74 48 61 6e 64 6c | 65 20 74 68 65 4c 69 73 |istHandl|e theLis|
|000036a0| 74 3b 0d 09 73 68 6f 72 | 74 20 68 65 69 67 68 74 |t;..shor|t height|
|000036b0| 2c 20 6e 75 6d 43 65 6c | 6c 73 3b 0d 09 43 65 6c |, numCel|ls;..Cel|
|000036c0| 6c 20 74 68 65 43 65 6c | 6c 3b 0d 09 0d 09 69 6e |l theCel|l;....in|
|000036d0| 66 6f 20 3d 20 28 54 57 | 69 6e 64 6f 77 2a 2a 29 |fo = (TW|indow**)|
|000036e0| 47 65 74 57 52 65 66 43 | 6f 6e 28 77 69 6e 64 29 |GetWRefC|on(wind)|
|000036f0| 3b 0d 09 74 68 65 4c 69 | 73 74 20 3d 20 28 2a 2a |;..theLi|st = (**|
|00003700| 69 6e 66 6f 29 2e 74 68 | 65 4c 69 73 74 3b 0d 09 |info).th|eList;..|
|00003710| 68 65 69 67 68 74 20 3d | 20 28 2a 2a 74 68 65 4c |height =| (**theL|
|00003720| 69 73 74 29 2e 76 69 73 | 69 62 6c 65 2e 62 6f 74 |ist).vis|ible.bot|
|00003730| 74 6f 6d 20 2d 20 28 2a | 2a 74 68 65 4c 69 73 74 |tom - (*|*theList|
|00003740| 29 2e 76 69 73 69 62 6c | 65 2e 74 6f 70 3b 0d 09 |).visibl|e.top;..|
|00003750| 6e 75 6d 43 65 6c 6c 73 | 20 3d 20 28 2a 2a 74 68 |numCells| = (**th|
|00003760| 65 4c 69 73 74 29 2e 64 | 61 74 61 42 6f 75 6e 64 |eList).d|ataBound|
|00003770| 73 2e 62 6f 74 74 6f 6d | 3b 0d 09 73 77 69 74 63 |s.bottom|;..switc|
|00003780| 68 20 28 70 61 72 74 29 | 20 7b 0d 09 09 63 61 73 |h (part)| {...cas|
|00003790| 65 20 69 6e 55 70 42 75 | 74 74 6f 6e 3a 0d 09 09 |e inUpBu|tton:...|
|000037a0| 63 61 73 65 20 69 6e 44 | 6f 77 6e 42 75 74 74 6f |case inD|ownButto|
|000037b0| 6e 3a 0d 09 09 09 53 65 | 74 50 74 28 26 74 68 65 |n:....Se|tPt(&the|
|000037c0| 43 65 6c 6c 2c 20 30 2c | 20 30 29 3b 0d 09 09 09 |Cell, 0,| 0);....|
|000037d0| 69 66 20 28 70 61 72 74 | 20 3d 3d 20 69 6e 55 70 |if (part| == inUp|
|000037e0| 42 75 74 74 6f 6e 29 20 | 7b 0d 09 09 09 09 74 68 |Button) |{.....th|
|000037f0| 65 43 65 6c 6c 2e 76 20 | 3d 20 47 65 74 46 69 72 |eCell.v |= GetFir|
|00003800| 73 74 53 65 6c 65 63 74 | 65 64 43 65 6c 6c 28 74 |stSelect|edCell(t|
|00003810| 68 65 4c 69 73 74 29 3b | 0d 09 09 09 09 74 68 65 |heList);|.....the|
|00003820| 43 65 6c 6c 2e 76 2d 2d | 3b 0d 09 09 09 09 69 66 |Cell.v--|;.....if|
|00003830| 20 28 74 68 65 43 65 6c | 6c 2e 76 20 3c 20 30 29 | (theCel|l.v < 0)|
|00003840| 20 74 68 65 43 65 6c 6c | 2e 76 20 3d 20 30 3b 0d | theCell|.v = 0;.|
|00003850| 09 09 09 7d 20 65 6c 73 | 65 20 7b 20 0d 09 09 09 |...} els|e { ....|
|00003860| 09 74 68 65 43 65 6c 6c | 2e 76 20 3d 20 47 65 74 |.theCell|.v = Get|
|00003870| 4c 61 73 74 53 65 6c 65 | 63 74 65 64 43 65 6c 6c |LastSele|ctedCell|
|00003880| 28 74 68 65 4c 69 73 74 | 29 3b 0d 09 09 09 09 74 |(theList|);.....t|
|00003890| 68 65 43 65 6c 6c 2e 76 | 2b 2b 3b 0d 09 09 09 09 |heCell.v|++;.....|
|000038a0| 69 66 20 28 74 68 65 43 | 65 6c 6c 2e 76 20 3e 3d |if (theC|ell.v >=|
|000038b0| 20 6e 75 6d 43 65 6c 6c | 73 29 20 74 68 65 43 65 | numCell|s) theCe|
|000038c0| 6c 6c 2e 76 20 3d 20 6e | 75 6d 43 65 6c 6c 73 2d |ll.v = n|umCells-|
|000038d0| 31 3b 0d 09 09 09 7d 0d | 09 09 09 53 65 6c 65 63 |1;....}.|...Selec|
|000038e0| 74 53 69 6e 67 6c 65 4c | 69 73 74 49 74 65 6d 28 |tSingleL|istItem(|
|000038f0| 74 68 65 4c 69 73 74 2c | 20 74 68 65 43 65 6c 6c |theList,| theCell|
|00003900| 29 3b 0d 09 09 09 48 61 | 6e 64 6c 65 55 70 64 61 |);....Ha|ndleUpda|
|00003910| 74 65 28 77 69 6e 64 29 | 3b 0d 09 09 09 4d 79 4c |te(wind)|;....MyL|
|00003920| 41 75 74 6f 53 63 72 6f | 6c 6c 28 74 68 65 4c 69 |AutoScro|ll(theLi|
|00003930| 73 74 29 3b 0d 09 09 09 | 62 72 65 61 6b 3b 0d 09 |st);....|break;..|
|00003940| 09 63 61 73 65 20 69 6e | 50 61 67 65 55 70 3a 0d |.case in|PageUp:.|
|00003950| 09 09 09 4d 79 4c 53 63 | 72 6f 6c 6c 28 2d 28 68 |...MyLSc|roll(-(h|
|00003960| 65 69 67 68 74 20 2d 20 | 31 29 2c 20 74 68 65 4c |eight - |1), theL|
|00003970| 69 73 74 29 3b 0d 09 09 | 09 62 72 65 61 6b 3b 0d |ist);...|.break;.|
|00003980| 09 09 63 61 73 65 20 69 | 6e 50 61 67 65 44 6f 77 |..case i|nPageDow|
|00003990| 6e 3a 0d 09 09 09 4d 79 | 4c 53 63 72 6f 6c 6c 28 |n:....My|LScroll(|
|000039a0| 68 65 69 67 68 74 20 2d | 20 31 2c 20 74 68 65 4c |height -| 1, theL|
|000039b0| 69 73 74 29 3b 0d 09 09 | 09 62 72 65 61 6b 3b 0d |ist);...|.break;.|
|000039c0| 09 09 63 61 73 65 20 6b | 53 63 72 6f 6c 6c 54 6f |..case k|ScrollTo|
|000039d0| 48 6f 6d 65 3a 0d 09 09 | 09 4d 79 4c 53 63 72 6f |Home:...|.MyLScro|
|000039e0| 6c 6c 28 2d 6e 75 6d 43 | 65 6c 6c 73 2c 20 74 68 |ll(-numC|ells, th|
|000039f0| 65 4c 69 73 74 29 3b 0d | 09 09 09 62 72 65 61 6b |eList);.|...break|
|00003a00| 3b 0d 09 09 63 61 73 65 | 20 6b 53 63 72 6f 6c 6c |;...case| kScroll|
|00003a10| 54 6f 45 6e 64 3a 0d 09 | 09 09 4d 79 4c 53 63 72 |ToEnd:..|..MyLScr|
|00003a20| 6f 6c 6c 28 6e 75 6d 43 | 65 6c 6c 73 2c 20 74 68 |oll(numC|ells, th|
|00003a30| 65 4c 69 73 74 29 3b 0d | 09 09 09 62 72 65 61 6b |eList);.|...break|
|00003a40| 3b 0d 09 7d 0d 7d 0d 0d | 0d 0d 2f 2a 2d 2d 2d 2d |;..}.}..|../*----|
|00003a50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003a60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003a70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003a80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003a90| 2d 2d 2d 2d 2d 2d 2d 2d | 0d 09 52 65 73 69 7a 65 |--------|..Resize|
|00003aa0| 43 6f 6e 74 65 6e 74 73 | 20 0d 09 0d 09 41 64 6a |Contents| ....Adj|
|00003ab0| 75 73 74 20 61 20 67 72 | 6f 75 70 20 77 69 6e 64 |ust a gr|oup wind|
|00003ac0| 6f 77 27 73 20 63 6f 6e | 74 65 6e 74 73 20 61 66 |ow's con|tents af|
|00003ad0| 74 65 72 20 61 20 77 69 | 6e 64 6f 77 20 73 69 7a |ter a wi|ndow siz|
|00003ae0| 65 20 63 68 61 6e 67 65 | 20 28 67 72 6f 77 0d 09 |e change| (grow..|
|00003af0| 6f 72 20 7a 6f 6f 6d 29 | 2e 0d 09 09 09 0d 09 45 |or zoom)|.......E|
|00003b00| 6e 74 72 79 3a 09 77 69 | 6e 64 20 3d 20 70 6f 69 |ntry:.wi|nd = poi|
|00003b10| 6e 74 65 72 20 74 6f 20 | 67 72 6f 75 70 20 77 69 |nter to |group wi|
|00003b20| 6e 64 6f 77 2e 0d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ndow..--|--------|
|00003b30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003b40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003b50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003b60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003b70| 2d 2d 2a 2f 0d 0d 73 74 | 61 74 69 63 20 76 6f 69 |--*/..st|atic voi|
|00003b80| 64 20 52 65 73 69 7a 65 | 43 6f 6e 74 65 6e 74 73 |d Resize|Contents|
|00003b90| 20 28 57 69 6e 64 6f 77 | 50 74 72 20 77 69 6e 64 | (Window|Ptr wind|
|00003ba0| 29 0d 7b 0d 09 54 57 69 | 6e 64 6f 77 20 2a 2a 69 |).{..TWi|ndow **i|
|00003bb0| 6e 66 6f 3b 0d 09 73 68 | 6f 72 74 20 77 69 64 74 |nfo;..sh|ort widt|
|00003bc0| 68 2c 20 68 65 69 67 68 | 74 2c 20 70 61 6e 65 6c |h, heigh|t, panel|
|00003bd0| 48 65 69 67 68 74 3b 0d | 09 4c 69 73 74 48 61 6e |Height;.|.ListHan|
|00003be0| 64 6c 65 20 74 68 65 4c | 69 73 74 3b 0d 09 50 6f |dle theL|ist;..Po|
|00003bf0| 69 6e 74 20 78 3b 0d 0d | 09 69 6e 66 6f 20 3d 20 |int x;..|.info = |
|00003c00| 28 54 57 69 6e 64 6f 77 | 2a 2a 29 47 65 74 57 52 |(TWindow|**)GetWR|
|00003c10| 65 66 43 6f 6e 28 77 69 | 6e 64 29 3b 0d 09 70 61 |efCon(wi|nd);..pa|
|00003c20| 6e 65 6c 48 65 69 67 68 | 74 20 3d 20 28 2a 2a 69 |nelHeigh|t = (**i|
|00003c30| 6e 66 6f 29 2e 70 61 6e | 65 6c 48 65 69 67 68 74 |nfo).pan|elHeight|
|00003c40| 3b 0d 09 74 68 65 4c 69 | 73 74 20 3d 20 28 2a 2a |;..theLi|st = (**|
|00003c50| 69 6e 66 6f 29 2e 74 68 | 65 4c 69 73 74 3b 0d 09 |info).th|eList;..|
|00003c60| 77 69 64 74 68 20 3d 20 | 77 69 6e 64 2d 3e 70 6f |width = |wind->po|
|00003c70| 72 74 52 65 63 74 2e 72 | 69 67 68 74 3b 0d 09 68 |rtRect.r|ight;..h|
|00003c80| 65 69 67 68 74 20 3d 20 | 77 69 6e 64 2d 3e 70 6f |eight = |wind->po|
|00003c90| 72 74 52 65 63 74 2e 62 | 6f 74 74 6f 6d 3b 0d 0d |rtRect.b|ottom;..|
|00003ca0| 09 4c 53 69 7a 65 28 77 | 69 64 74 68 2d 31 35 2c |.LSize(w|idth-15,|
|00003cb0| 20 68 65 69 67 68 74 2d | 31 35 2d 70 61 6e 65 6c | height-|15-panel|
|00003cc0| 48 65 69 67 68 74 2c 20 | 74 68 65 4c 69 73 74 29 |Height, |theList)|
|00003cd0| 3b 0d 09 53 65 74 50 74 | 28 26 78 2c 20 77 69 64 |;..SetPt|(&x, wid|
|00003ce0| 74 68 2d 31 35 2c 20 28 | 2a 2a 74 68 65 4c 69 73 |th-15, (|**theLis|
|00003cf0| 74 29 2e 63 65 6c 6c 53 | 69 7a 65 2e 76 29 3b 0d |t).cellS|ize.v);.|
|00003d00| 09 4c 43 65 6c 6c 53 69 | 7a 65 28 78 2c 20 74 68 |.LCellSi|ze(x, th|
|00003d10| 65 4c 69 73 74 29 3b 0d | 09 0d 09 49 6e 76 61 6c |eList);.|...Inval|
|00003d20| 52 65 63 74 28 26 77 69 | 6e 64 2d 3e 70 6f 72 74 |Rect(&wi|nd->port|
|00003d30| 52 65 63 74 29 3b 0d 7d | 0d 0d 0d 0d 2f 2a 2d 2d |Rect);.}|..../*--|
|00003d40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003d50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003d60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003d70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003d80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 0d 09 47 72 6f 75 |--------|--..Grou|
|00003d90| 70 4e 61 6d 65 4d 61 74 | 63 68 65 73 50 61 74 74 |pNameMat|chesPatt|
|00003da0| 65 72 6e 0d 09 0d 09 43 | 6f 6d 70 61 72 65 20 61 |ern....C|ompare a|
|00003db0| 20 66 69 6e 64 20 70 61 | 74 74 65 72 6e 20 73 74 | find pa|ttern st|
|00003dc0| 72 69 6e 67 20 74 6f 20 | 61 20 67 72 6f 75 70 20 |ring to |a group |
|00003dd0| 6e 61 6d 65 2e 0d 09 09 | 09 0d 09 45 6e 74 72 79 |name....|...Entry|
|00003de0| 3a 09 70 61 74 74 65 72 | 6e 20 3d 20 70 6f 69 6e |:.patter|n = poin|
|00003df0| 74 65 72 20 74 6f 20 66 | 69 6e 64 20 70 61 74 74 |ter to f|ind patt|
|00003e00| 65 72 6e 20 73 74 72 69 | 6e 67 2e 0d 09 09 09 67 |ern stri|ng.....g|
|00003e10| 72 6f 75 70 4e 61 6d 65 | 20 3d 20 70 6f 69 6e 74 |roupName| = point|
|00003e20| 65 72 20 74 6f 20 67 72 | 6f 75 70 20 6e 61 6d 65 |er to gr|oup name|
|00003e30| 2e 0d 09 09 09 70 61 74 | 74 65 72 6e 43 6f 6e 74 |.....pat|ternCont|
|00003e40| 61 69 6e 73 50 65 72 69 | 6f 64 20 3d 20 74 72 75 |ainsPeri|od = tru|
|00003e50| 65 20 69 66 20 70 61 74 | 74 65 72 6e 20 73 74 72 |e if pat|tern str|
|00003e60| 69 6e 67 20 63 6f 6e 74 | 61 69 6e 73 20 61 20 0d |ing cont|ains a .|
|00003e70| 09 09 09 09 70 65 72 69 | 6f 64 2e 0d 09 09 09 0d |....peri|od......|
|00003e80| 09 45 78 69 74 3a 09 66 | 75 6e 63 74 69 6f 6e 20 |.Exit:.f|unction |
|00003e90| 72 65 73 75 6c 74 20 3d | 20 74 72 75 65 20 69 66 |result =| true if|
|00003ea0| 20 67 72 6f 75 70 20 6e | 61 6d 65 20 6d 61 74 63 | group n|ame matc|
|00003eb0| 68 65 73 20 70 61 74 74 | 65 72 6e 0d 2d 2d 2d 2d |hes patt|ern.----|
|00003ec0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003ed0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003ee0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003ef0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003f00| 2d 2d 2d 2d 2d 2d 2d 2d | 2a 2f 0d 0d 73 74 61 74 |--------|*/..stat|
|00003f10| 69 63 20 42 6f 6f 6c 65 | 61 6e 20 47 72 6f 75 70 |ic Boole|an Group|
|00003f20| 4e 61 6d 65 4d 61 74 63 | 68 65 73 50 61 74 74 65 |NameMatc|hesPatte|
|00003f30| 72 6e 20 28 63 68 61 72 | 20 2a 70 61 74 74 65 72 |rn (char| *patter|
|00003f40| 6e 2c 20 63 68 61 72 20 | 2a 67 72 6f 75 70 4e 61 |n, char |*groupNa|
|00003f50| 6d 65 2c 0d 09 42 6f 6f | 6c 65 61 6e 20 70 61 74 |me,..Boo|lean pat|
|00003f60| 74 65 72 6e 43 6f 6e 74 | 61 69 6e 73 50 65 72 69 |ternCont|ainsPeri|
|00003f70| 6f 64 29 0d 7b 0d 09 63 | 68 61 72 20 2a 70 61 74 |od).{..c|har *pat|
|00003f80| 2c 20 2a 67 72 70 3b 0d | 0d 09 69 66 20 28 70 61 |, *grp;.|..if (pa|
|00003f90| 74 74 65 72 6e 43 6f 6e | 74 61 69 6e 73 50 65 72 |tternCon|tainsPer|
|00003fa0| 69 6f 64 29 20 7b 0d 09 | 09 70 61 74 20 3d 20 70 |iod) {..|.pat = p|
|00003fb0| 61 74 74 65 72 6e 3b 0d | 09 09 67 72 70 20 3d 20 |attern;.|..grp = |
|00003fc0| 67 72 6f 75 70 4e 61 6d | 65 3b 0d 09 09 77 68 69 |groupNam|e;...whi|
|00003fd0| 6c 65 20 28 2a 70 61 74 | 20 21 3d 20 30 29 20 7b |le (*pat| != 0) {|
|00003fe0| 0d 09 09 09 69 66 20 28 | 2a 70 61 74 20 3d 3d 20 |....if (|*pat == |
|00003ff0| 27 2e 27 29 20 7b 0d 09 | 09 09 09 77 68 69 6c 65 |'.') {..|...while|
|00004000| 20 28 2a 67 72 70 20 21 | 3d 20 30 20 26 26 20 2a | (*grp !|= 0 && *|
|00004010| 67 72 70 20 21 3d 20 27 | 2e 27 29 20 67 72 70 2b |grp != '|.') grp+|
|00004020| 2b 3b 0d 09 09 09 09 69 | 66 20 28 2a 67 72 70 20 |+;.....i|f (*grp |
|00004030| 3d 3d 20 30 29 20 7b 0d | 09 09 09 09 09 67 6f 74 |== 0) {.|.....got|
|00004040| 6f 20 65 78 69 74 3b 0d | 09 09 09 09 7d 20 65 6c |o exit;.|....} el|
|00004050| 73 65 20 7b 0d 09 09 09 | 09 09 67 72 70 2b 2b 3b |se {....|..grp++;|
|00004060| 0d 09 09 09 09 7d 0d 09 | 09 09 7d 20 65 6c 73 65 |.....}..|..} else|
|00004070| 20 7b 0d 09 09 09 09 69 | 66 20 28 74 6f 75 70 70 | {.....i|f (toupp|
|00004080| 65 72 28 2a 70 61 74 29 | 20 21 3d 20 74 6f 75 70 |er(*pat)| != toup|
|00004090| 70 65 72 28 2a 67 72 70 | 29 29 20 67 6f 74 6f 20 |per(*grp|)) goto |
|000040a0| 65 78 69 74 3b 0d 09 09 | 09 09 67 72 70 2b 2b 3b |exit;...|..grp++;|
|000040b0| 0d 09 09 09 7d 0d 09 09 | 09 70 61 74 2b 2b 3b 0d |....}...|.pat++;.|
|000040c0| 09 09 7d 0d 09 09 72 65 | 74 75 72 6e 20 74 72 75 |..}...re|turn tru|
|000040d0| 65 3b 0d 09 7d 0d 09 0d | 65 78 69 74 3a 0d 0d 09 |e;..}...|exit:...|
|000040e0| 72 65 74 75 72 6e 20 4d | 79 49 73 41 53 75 62 73 |return M|yIsASubs|
|000040f0| 74 72 69 6e 67 28 67 72 | 6f 75 70 4e 61 6d 65 2c |tring(gr|oupName,|
|00004100| 20 70 61 74 74 65 72 6e | 29 3b 0d 7d 0d 0d 0d 0d | pattern|);.}....|
|00004110| 2f 2a 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |/*------|--------|
|00004120| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004130| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004140| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004150| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0d 09 |--------|------..|
|00004160| 46 69 6e 64 20 0d 09 0d | 09 53 65 61 72 63 68 20 |Find ...|.Search |
|00004170| 61 20 67 72 6f 75 70 20 | 77 69 6e 64 6f 77 20 66 |a group |window f|
|00004180| 6f 72 20 61 20 70 61 74 | 74 65 72 6e 2e 0d 09 09 |or a pat|tern....|
|00004190| 09 0d 09 45 6e 74 72 79 | 3a 09 77 69 6e 64 20 3d |...Entry|:.wind =|
|000041a0| 20 70 6f 69 6e 74 65 72 | 20 74 6f 20 67 72 6f 75 | pointer| to grou|
|000041b0| 70 20 77 69 6e 64 6f 77 | 2e 0d 09 09 09 74 68 65 |p window|.....the|
|000041c0| 43 65 6c 6c 20 3d 20 66 | 69 72 73 74 20 63 65 6c |Cell = f|irst cel|
|000041d0| 6c 20 74 6f 20 73 65 61 | 72 63 68 2e 0d 09 09 09 |l to sea|rch.....|
|000041e0| 67 46 69 6e 64 50 61 74 | 74 65 72 6e 20 3d 20 70 |gFindPat|tern = p|
|000041f0| 61 74 74 65 72 6e 2e 0d | 09 0d 09 45 78 69 74 3a |attern..|...Exit:|
|00004200| 09 66 75 6e 63 74 69 6f | 6e 20 72 65 73 75 6c 74 |.functio|n result|
|00004210| 20 3d 20 65 72 72 6f 72 | 20 63 6f 64 65 2e 0d 2d | = error| code..-|
|00004220| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004230| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004240| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004250| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004260| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2a 2f 0d 0d 73 |--------|---*/..s|
|00004270| 74 61 74 69 63 20 4f 53 | 45 72 72 20 46 69 6e 64 |tatic OS|Err Find|
|00004280| 20 28 57 69 6e 64 6f 77 | 50 74 72 20 77 69 6e 64 | (Window|Ptr wind|
|00004290| 2c 20 43 65 6c 6c 20 74 | 68 65 43 65 6c 6c 29 0d |, Cell t|heCell).|
|000042a0| 7b 0d 09 54 57 69 6e 64 | 6f 77 20 2a 2a 69 6e 66 |{..TWind|ow **inf|
|000042b0| 6f 3b 0d 09 54 47 72 6f | 75 70 20 2a 2a 67 72 6f |o;..TGro|up **gro|
|000042c0| 75 70 41 72 72 61 79 3b | 0d 09 4c 69 73 74 48 61 |upArray;|..ListHa|
|000042d0| 6e 64 6c 65 20 74 68 65 | 4c 69 73 74 3b 0d 09 73 |ndle the|List;..s|
|000042e0| 68 6f 72 74 20 69 6e 64 | 65 78 2c 20 63 65 6c 6c |hort ind|ex, cell|
|000042f0| 44 61 74 61 4c 65 6e 2c | 20 6e 75 6d 43 65 6c 6c |DataLen,| numCell|
|00004300| 73 3b 0d 09 63 68 61 72 | 20 2a 67 72 6f 75 70 4e |s;..char| *groupN|
|00004310| 61 6d 65 3b 0d 09 42 6f | 6f 6c 65 61 6e 20 70 61 |ame;..Bo|olean pa|
|00004320| 74 74 65 72 6e 43 6f 6e | 74 61 69 6e 73 50 65 72 |tternCon|tainsPer|
|00004330| 69 6f 64 20 3d 20 66 61 | 6c 73 65 3b 0d 09 63 68 |iod = fa|lse;..ch|
|00004340| 61 72 20 2a 70 3b 0d 09 | 75 6e 73 69 67 6e 65 64 |ar *p;..|unsigned|
|00004350| 20 6c 6f 6e 67 20 74 69 | 63 6b 4c 6f 6e 67 54 69 | long ti|ckLongTi|
|00004360| 6d 65 3b 0d 09 42 6f 6f | 6c 65 61 6e 20 6c 6f 6e |me;..Boo|lean lon|
|00004370| 67 54 69 6d 65 20 3d 20 | 66 61 6c 73 65 3b 0d 09 |gTime = |false;..|
|00004380| 4f 53 45 72 72 20 65 72 | 72 20 3d 20 6e 6f 45 72 |OSErr er|r = noEr|
|00004390| 72 3b 0d 09 63 68 61 72 | 20 73 74 61 74 65 3b 0d |r;..char| state;.|
|000043a0| 09 0d 09 69 6e 66 6f 20 | 3d 20 28 54 57 69 6e 64 |...info |= (TWind|
|000043b0| 6f 77 2a 2a 29 47 65 74 | 57 52 65 66 43 6f 6e 28 |ow**)Get|WRefCon(|
|000043c0| 77 69 6e 64 29 3b 0d 09 | 67 72 6f 75 70 41 72 72 |wind);..|groupArr|
|000043d0| 61 79 20 3d 20 28 2a 2a | 69 6e 66 6f 29 2e 67 72 |ay = (**|info).gr|
|000043e0| 6f 75 70 41 72 72 61 79 | 3b 0d 09 74 68 65 4c 69 |oupArray|;..theLi|
|000043f0| 73 74 20 3d 20 28 2a 2a | 69 6e 66 6f 29 2e 74 68 |st = (**|info).th|
|00004400| 65 4c 69 73 74 3b 0d 09 | 6e 75 6d 43 65 6c 6c 73 |eList;..|numCells|
|00004410| 20 3d 20 28 2a 2a 74 68 | 65 4c 69 73 74 29 2e 64 | = (**th|eList).d|
|00004420| 61 74 61 42 6f 75 6e 64 | 73 2e 62 6f 74 74 6f 6d |ataBound|s.bottom|
|00004430| 3b 0d 09 66 6f 72 20 28 | 70 20 3d 20 67 46 69 6e |;..for (|p = gFin|
|00004440| 64 50 61 74 74 65 72 6e | 3b 20 2a 70 20 21 3d 20 |dPattern|; *p != |
|00004450| 30 3b 20 70 2b 2b 29 20 | 7b 0d 09 09 69 66 20 28 |0; p++) |{...if (|
|00004460| 2a 70 20 3d 3d 20 27 2e | 27 29 20 7b 0d 09 09 09 |*p == '.|') {....|
|00004470| 70 61 74 74 65 72 6e 43 | 6f 6e 74 61 69 6e 73 50 |patternC|ontainsP|
|00004480| 65 72 69 6f 64 20 3d 20 | 74 72 75 65 3b 0d 09 09 |eriod = |true;...|
|00004490| 09 62 72 65 61 6b 3b 0d | 09 09 7d 0d 09 7d 0d 09 |.break;.|..}..}..|
|000044a0| 74 69 63 6b 4c 6f 6e 67 | 54 69 6d 65 20 3d 20 54 |tickLong|Time = T|
|000044b0| 69 63 6b 43 6f 75 6e 74 | 28 29 20 2b 20 33 30 3b |ickCount|() + 30;|
|000044c0| 0d 09 73 74 61 74 65 20 | 3d 20 4d 79 48 47 65 74 |..state |= MyHGet|
|000044d0| 53 74 61 74 65 28 67 47 | 72 6f 75 70 4e 61 6d 65 |State(gG|roupName|
|000044e0| 73 29 3b 0d 09 4d 79 48 | 4c 6f 63 6b 28 67 47 72 |s);..MyH|Lock(gGr|
|000044f0| 6f 75 70 4e 61 6d 65 73 | 29 3b 0d 09 77 68 69 6c |oupNames|);..whil|
|00004500| 65 20 28 74 68 65 43 65 | 6c 6c 2e 76 20 3c 20 6e |e (theCe|ll.v < n|
|00004510| 75 6d 43 65 6c 6c 73 29 | 20 7b 0d 09 09 63 65 6c |umCells)| {...cel|
|00004520| 6c 44 61 74 61 4c 65 6e | 20 3d 20 32 3b 0d 09 09 |lDataLen| = 2;...|
|00004530| 4c 47 65 74 43 65 6c 6c | 28 26 69 6e 64 65 78 2c |LGetCell|(&index,|
|00004540| 20 26 63 65 6c 6c 44 61 | 74 61 4c 65 6e 2c 20 74 | &cellDa|taLen, t|
|00004550| 68 65 43 65 6c 6c 2c 20 | 74 68 65 4c 69 73 74 29 |heCell, |theList)|
|00004560| 3b 0d 09 09 67 72 6f 75 | 70 4e 61 6d 65 20 3d 20 |;...grou|pName = |
|00004570| 2a 67 47 72 6f 75 70 4e | 61 6d 65 73 20 2b 20 28 |*gGroupN|ames + (|
|00004580| 2a 67 72 6f 75 70 41 72 | 72 61 79 29 5b 69 6e 64 |*groupAr|ray)[ind|
|00004590| 65 78 5d 2e 6e 61 6d 65 | 4f 66 66 73 65 74 3b 0d |ex].name|Offset;.|
|000045a0| 09 09 69 66 20 28 47 72 | 6f 75 70 4e 61 6d 65 4d |..if (Gr|oupNameM|
|000045b0| 61 74 63 68 65 73 50 61 | 74 74 65 72 6e 28 67 46 |atchesPa|ttern(gF|
|000045c0| 69 6e 64 50 61 74 74 65 | 72 6e 2c 20 67 72 6f 75 |indPatte|rn, grou|
|000045d0| 70 4e 61 6d 65 2c 20 70 | 61 74 74 65 72 6e 43 6f |pName, p|atternCo|
|000045e0| 6e 74 61 69 6e 73 50 65 | 72 69 6f 64 29 29 20 7b |ntainsPe|riod)) {|
|000045f0| 0d 09 09 09 4d 79 48 53 | 65 74 53 74 61 74 65 28 |....MyHS|etState(|
|00004600| 67 47 72 6f 75 70 4e 61 | 6d 65 73 2c 20 73 74 61 |gGroupNa|mes, sta|
|00004610| 74 65 29 3b 0d 09 09 09 | 53 65 6c 65 63 74 53 69 |te);....|SelectSi|
|00004620| 6e 67 6c 65 4c 69 73 74 | 49 74 65 6d 28 74 68 65 |ngleList|Item(the|
|00004630| 4c 69 73 74 2c 20 74 68 | 65 43 65 6c 6c 29 3b 0d |List, th|eCell);.|
|00004640| 09 09 09 4d 79 4c 53 63 | 72 6f 6c 6c 43 65 6e 74 |...MyLSc|rollCent|
|00004650| 65 72 28 74 68 65 43 65 | 6c 6c 2c 20 74 68 65 4c |er(theCe|ll, theL|
|00004660| 69 73 74 29 3b 0d 09 09 | 09 72 65 74 75 72 6e 20 |ist);...|.return |
|00004670| 6e 6f 45 72 72 3b 0d 09 | 09 7d 0d 09 09 74 68 65 |noErr;..|.}...the|
|00004680| 43 65 6c 6c 2e 76 2b 2b | 3b 0d 09 09 69 66 20 28 |Cell.v++|;...if (|
|00004690| 28 74 68 65 43 65 6c 6c | 2e 76 20 26 20 30 78 66 |(theCell|.v & 0xf|
|000046a0| 29 20 3d 3d 20 30 29 20 | 7b 0d 09 09 09 69 66 20 |) == 0) |{....if |
|000046b0| 28 21 6c 6f 6e 67 54 69 | 6d 65 20 26 26 20 54 69 |(!longTi|me && Ti|
|000046c0| 63 6b 43 6f 75 6e 74 28 | 29 20 3e 20 74 69 63 6b |ckCount(|) > tick|
|000046d0| 4c 6f 6e 67 54 69 6d 65 | 29 20 6c 6f 6e 67 54 69 |LongTime|) longTi|
|000046e0| 6d 65 20 3d 20 74 72 75 | 65 3b 0d 09 09 09 69 66 |me = tru|e;....if|
|000046f0| 20 28 6c 6f 6e 67 54 69 | 6d 65 29 20 7b 0d 09 09 | (longTi|me) {...|
|00004700| 09 09 65 72 72 20 3d 20 | 47 69 76 65 54 69 6d 65 |..err = |GiveTime|
|00004710| 28 66 61 6c 73 65 29 3b | 0d 09 09 09 09 69 66 20 |(false);|.....if |
|00004720| 28 65 72 72 20 21 3d 20 | 6e 6f 45 72 72 29 20 7b |(err != |noErr) {|
|00004730| 0d 09 09 09 09 09 4d 79 | 48 53 65 74 53 74 61 74 |......My|HSetStat|
|00004740| 65 28 67 47 72 6f 75 70 | 4e 61 6d 65 73 2c 20 73 |e(gGroup|Names, s|
|00004750| 74 61 74 65 29 3b 0d 09 | 09 09 09 09 72 65 74 75 |tate);..|....retu|
|00004760| 72 6e 20 65 72 72 3b 0d | 09 09 09 09 7d 0d 09 09 |rn err;.|....}...|
|00004770| 09 7d 0d 09 09 7d 0d 09 | 7d 0d 09 4d 79 48 53 65 |.}...}..|}..MyHSe|
|00004780| 74 53 74 61 74 65 28 67 | 47 72 6f 75 70 4e 61 6d |tState(g|GroupNam|
|00004790| 65 73 2c 20 73 74 61 74 | 65 29 3b 0d 09 53 79 73 |es, stat|e);..Sys|
|000047a0| 42 65 65 70 28 30 29 3b | 0d 09 72 65 74 75 72 6e |Beep(0);|..return|
|000047b0| 20 6e 6f 45 72 72 3b 0d | 7d 0d 0d 0d 0d 2f 2a 2d | noErr;.|}..../*-|
|000047c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000047d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000047e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000047f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004800| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 0d 09 4d 61 6b |--------|---..Mak|
|00004810| 65 47 72 6f 75 70 4c 69 | 73 74 20 0d 09 0d 09 43 |eGroupLi|st ....C|
|00004820| 72 65 61 74 65 73 20 61 | 20 4c 69 73 74 20 4d 61 |reates a| List Ma|
|00004830| 6e 61 67 65 72 20 6c 69 | 73 74 20 66 6f 72 20 61 |nager li|st for a|
|00004840| 20 67 72 6f 75 70 20 77 | 69 6e 64 6f 77 2e 0d 0d | group w|indow...|
|00004850| 09 45 6e 74 72 79 3a 09 | 6e 75 6d 47 72 6f 75 70 |.Entry:.|numGroup|
|00004860| 73 20 3d 20 6e 75 6d 62 | 65 72 20 6f 66 20 67 72 |s = numb|er of gr|
|00004870| 6f 75 70 73 20 69 6e 20 | 6c 69 73 74 2e 0d 09 09 |oups in |list....|
|00004880| 09 74 68 65 4c 69 73 74 | 20 3d 20 68 61 6e 64 6c |.theList| = handl|
|00004890| 65 20 74 6f 20 6c 69 73 | 74 20 72 65 63 6f 72 64 |e to lis|t record|
|000048a0| 2e 0d 0d 09 45 78 69 74 | 3a 09 66 75 6e 63 74 69 |....Exit|:.functi|
|000048b0| 6f 6e 20 72 65 73 75 6c | 74 20 3d 20 65 72 72 6f |on resul|t = erro|
|000048c0| 72 20 63 6f 64 65 2e 0d | 09 09 09 41 6e 79 20 70 |r code..|...Any p|
|000048d0| 72 65 76 69 6f 75 73 20 | 6c 69 73 74 20 69 73 20 |revious |list is |
|000048e0| 64 65 6c 65 74 65 64 2e | 20 41 20 6e 65 77 20 6c |deleted.| A new l|
|000048f0| 69 73 74 20 69 73 20 63 | 72 65 61 74 65 64 20 77 |ist is c|reated w|
|00004900| 69 74 68 20 6e 75 6d 47 | 72 6f 75 70 73 0d 09 09 |ith numG|roups...|
|00004910| 09 63 65 6c 6c 73 2e 20 | 54 68 65 20 63 65 6c 6c |.cells. |The cell|
|00004920| 20 64 61 74 61 20 69 73 | 20 69 6e 69 74 69 61 6c | data is| initial|
|00004930| 69 7a 65 64 20 74 6f 20 | 30 2c 20 31 2c 20 32 2c |ized to |0, 1, 2,|
|00004940| 20 2e 2e 2e 2c 20 6e 75 | 6d 47 72 6f 75 70 73 2d | ..., nu|mGroups-|
|00004950| 31 2e 0d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |1..-----|--------|
|00004960| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004970| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004980| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004990| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2a |--------|-------*|
|000049a0| 2f 0d 20 0d 4f 53 45 72 | 72 20 4d 61 6b 65 47 72 |/. .OSEr|r MakeGr|
|000049b0| 6f 75 70 4c 69 73 74 20 | 28 73 68 6f 72 74 20 6e |oupList |(short n|
|000049c0| 75 6d 47 72 6f 75 70 73 | 2c 20 4c 69 73 74 48 61 |umGroups|, ListHa|
|000049d0| 6e 64 6c 65 20 74 68 65 | 4c 69 73 74 29 0d 7b 0d |ndle the|List).{.|
|000049e0| 09 73 68 6f 72 74 20 69 | 3b 0d 09 73 68 6f 72 74 |.short i|;..short|
|000049f0| 20 2a 70 43 65 6c 6c 73 | 3b 0d 09 73 68 6f 72 74 | *pCells|;..short|
|00004a00| 20 2a 70 43 65 6c 6c 41 | 72 72 61 79 3b 0d 09 73 | *pCellA|rray;..s|
|00004a10| 68 6f 72 74 20 6f 66 66 | 73 65 74 3b 0d 09 4f 53 |hort off|set;..OS|
|00004a20| 45 72 72 20 65 72 72 20 | 3d 20 6e 6f 45 72 72 3b |Err err |= noErr;|
|00004a30| 0d 09 0d 09 69 66 20 28 | 21 4d 65 6d 6f 72 79 41 |....if (|!MemoryA|
|00004a40| 76 61 69 6c 61 62 6c 65 | 28 34 2a 6e 75 6d 47 72 |vailable|(4*numGr|
|00004a50| 6f 75 70 73 29 29 20 72 | 65 74 75 72 6e 20 6d 65 |oups)) r|eturn me|
|00004a60| 6d 46 75 6c 6c 45 72 72 | 3b 0d 0d 09 4c 53 65 74 |mFullErr|;...LSet|
|00004a70| 44 72 61 77 69 6e 67 4d | 6f 64 65 28 66 61 6c 73 |DrawingM|ode(fals|
|00004a80| 65 2c 20 74 68 65 4c 69 | 73 74 29 3b 0d 09 4c 44 |e, theLi|st);..LD|
|00004a90| 65 6c 52 6f 77 28 30 2c | 20 30 2c 20 74 68 65 4c |elRow(0,| 0, theL|
|00004aa0| 69 73 74 29 3b 0d 09 4c | 41 64 64 52 6f 77 28 6e |ist);..L|AddRow(n|
|00004ab0| 75 6d 47 72 6f 75 70 73 | 2c 20 30 2c 20 74 68 65 |umGroups|, 0, the|
|00004ac0| 4c 69 73 74 29 3b 0d 09 | 0d 09 65 72 72 20 3d 20 |List);..|..err = |
|00004ad0| 4d 79 53 65 74 48 61 6e | 64 6c 65 53 69 7a 65 28 |MySetHan|dleSize(|
|00004ae0| 28 2a 2a 74 68 65 4c 69 | 73 74 29 2e 63 65 6c 6c |(**theLi|st).cell|
|00004af0| 73 2c 20 32 2a 6e 75 6d | 47 72 6f 75 70 73 29 3b |s, 2*num|Groups);|
|00004b00| 0d 09 69 66 20 28 65 72 | 72 20 21 3d 20 6e 6f 45 |..if (er|r != noE|
|00004b10| 72 72 29 20 67 6f 74 6f | 20 65 78 69 74 3b 0d 0d |rr) goto| exit;..|
|00004b20| 09 70 43 65 6c 6c 73 20 | 3d 20 28 73 68 6f 72 74 |.pCells |= (short|
|00004b30| 2a 29 2a 28 28 2a 2a 74 | 68 65 4c 69 73 74 29 2e |*)*((**t|heList).|
|00004b40| 63 65 6c 6c 73 29 3b 0d | 09 70 43 65 6c 6c 41 72 |cells);.|.pCellAr|
|00004b50| 72 61 79 20 3d 20 28 2a | 2a 74 68 65 4c 69 73 74 |ray = (*|*theList|
|00004b60| 29 2e 63 65 6c 6c 41 72 | 72 61 79 3b 0d 09 6f 66 |).cellAr|ray;..of|
|00004b70| 66 73 65 74 20 3d 20 30 | 3b 0d 0d 09 66 6f 72 20 |fset = 0|;...for |
|00004b80| 28 69 3d 30 3b 20 69 3c | 6e 75 6d 47 72 6f 75 70 |(i=0; i<|numGroup|
|00004b90| 73 3b 20 69 2b 2b 29 20 | 7b 0d 09 09 2a 70 43 65 |s; i++) |{...*pCe|
|00004ba0| 6c 6c 41 72 72 61 79 2b | 2b 20 3d 20 6f 66 66 73 |llArray+|+ = offs|
|00004bb0| 65 74 3b 0d 09 09 2a 70 | 43 65 6c 6c 73 2b 2b 20 |et;...*p|Cells++ |
|00004bc0| 3d 20 69 3b 0d 09 09 6f | 66 66 73 65 74 20 2b 3d |= i;...o|ffset +=|
|00004bd0| 20 32 3b 0d 09 7d 0d 09 | 2a 70 43 65 6c 6c 41 72 | 2;..}..|*pCellAr|
|00004be0| 72 61 79 20 3d 20 6f 66 | 66 73 65 74 3b 0d 09 4c |ray = of|fset;..L|
|00004bf0| 53 65 74 44 72 61 77 69 | 6e 67 4d 6f 64 65 28 74 |SetDrawi|ngMode(t|
|00004c00| 72 75 65 2c 20 74 68 65 | 4c 69 73 74 29 3b 0d 09 |rue, the|List);..|
|00004c10| 72 65 74 75 72 6e 20 6e | 6f 45 72 72 3b 0d 09 0d |return n|oErr;...|
|00004c20| 65 78 69 74 3a 0d 0d 09 | 4c 44 65 6c 52 6f 77 28 |exit:...|LDelRow(|
|00004c30| 30 2c 20 30 2c 20 74 68 | 65 4c 69 73 74 29 3b 0d |0, 0, th|eList);.|
|00004c40| 09 4c 53 65 74 44 72 61 | 77 69 6e 67 4d 6f 64 65 |.LSetDra|wingMode|
|00004c50| 28 74 72 75 65 2c 20 74 | 68 65 4c 69 73 74 29 3b |(true, t|heList);|
|00004c60| 0d 09 72 65 74 75 72 6e | 20 65 72 72 3b 0d 7d 0d |..return| err;.}.|
|00004c70| 0d 0d 0d 2f 2a 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.../*---|--------|
|00004c80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004c90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004ca0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004cb0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004cc0| 2d 0d 09 43 61 6e 41 63 | 63 65 70 74 44 72 61 67 |-..CanAc|ceptDrag|
|00004cd0| 20 0d 09 0d 09 46 69 67 | 75 72 65 20 6f 75 74 20 | ....Fig|ure out |
|00004ce0| 77 68 65 74 68 65 72 20 | 61 20 64 72 61 67 67 65 |whether |a dragge|
|00004cf0| 64 20 6f 62 6a 65 63 74 | 20 63 61 6e 20 62 65 20 |d object| can be |
|00004d00| 61 63 63 65 70 74 65 64 | 20 62 79 20 61 20 75 73 |accepted| by a us|
|00004d10| 65 72 20 67 72 6f 75 70 | 0d 09 6c 69 73 74 20 77 |er group|..list w|
|00004d20| 69 6e 64 6f 77 2e 0d 09 | 0d 09 45 6e 74 72 79 3a |indow...|..Entry:|
|00004d30| 09 74 68 65 44 72 61 67 | 20 3d 20 64 72 61 67 20 |.theDrag| = drag |
|00004d40| 72 65 66 65 72 65 6e 63 | 65 0d 09 09 09 0d 09 45 |referenc|e......E|
|00004d50| 78 69 74 3a 09 66 75 6e | 63 74 69 6f 6e 20 72 65 |xit:.fun|ction re|
|00004d60| 73 75 6c 74 20 3d 20 74 | 72 75 65 20 69 66 20 74 |sult = t|rue if t|
|00004d70| 68 69 73 20 6f 62 6a 65 | 63 74 20 63 61 6e 20 62 |his obje|ct can b|
|00004d80| 65 20 61 63 63 65 70 74 | 65 64 20 62 79 20 61 20 |e accept|ed by a |
|00004d90| 75 73 65 72 0d 09 09 09 | 09 67 72 6f 75 70 20 6c |user....|.group l|
|00004da0| 69 73 74 20 77 69 6e 64 | 6f 77 2e 0d 2d 2d 2d 2d |ist wind|ow..----|
|00004db0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004dc0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004dd0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004de0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004df0| 2d 2d 2d 2d 2d 2d 2d 2d | 2a 2f 0d 0d 73 74 61 74 |--------|*/..stat|
|00004e00| 69 63 20 42 6f 6f 6c 65 | 61 6e 20 43 61 6e 41 63 |ic Boole|an CanAc|
|00004e10| 63 65 70 74 44 72 61 67 | 20 28 44 72 61 67 52 65 |ceptDrag| (DragRe|
|00004e20| 66 65 72 65 6e 63 65 20 | 74 68 65 44 72 61 67 29 |ference |theDrag)|
|00004e30| 0d 7b 0d 09 75 6e 73 69 | 67 6e 65 64 20 73 68 6f |.{..unsi|gned sho|
|00004e40| 72 74 20 6e 75 6d 49 74 | 65 6d 73 3b 0d 09 49 74 |rt numIt|ems;..It|
|00004e50| 65 6d 52 65 66 65 72 65 | 6e 63 65 20 74 68 65 49 |emRefere|nce theI|
|00004e60| 74 65 6d 3b 0d 09 46 6c | 61 76 6f 72 46 6c 61 67 |tem;..Fl|avorFlag|
|00004e70| 73 20 74 68 65 46 6c 61 | 67 73 3b 0d 09 4f 53 45 |s theFla|gs;..OSE|
|00004e80| 72 72 20 65 72 72 20 3d | 20 6e 6f 45 72 72 3b 0d |rr err =| noErr;.|
|00004e90| 09 73 68 6f 72 74 20 69 | 3b 0d 09 0d 09 43 6f 75 |.short i|;....Cou|
|00004ea0| 6e 74 44 72 61 67 49 74 | 65 6d 73 28 74 68 65 44 |ntDragIt|ems(theD|
|00004eb0| 72 61 67 2c 20 26 6e 75 | 6d 49 74 65 6d 73 29 3b |rag, &nu|mItems);|
|00004ec0| 0d 09 66 6f 72 20 28 69 | 20 3d 20 31 3b 20 69 20 |..for (i| = 1; i |
|00004ed0| 3c 3d 20 6e 75 6d 49 74 | 65 6d 73 3b 20 69 2b 2b |<= numIt|ems; i++|
|00004ee0| 29 20 7b 0d 09 09 47 65 | 74 44 72 61 67 49 74 65 |) {...Ge|tDragIte|
|00004ef0| 6d 52 65 66 65 72 65 6e | 63 65 4e 75 6d 62 65 72 |mReferen|ceNumber|
|00004f00| 28 74 68 65 44 72 61 67 | 2c 20 69 2c 20 26 74 68 |(theDrag|, i, &th|
|00004f10| 65 49 74 65 6d 29 3b 0d | 09 09 65 72 72 20 3d 20 |eItem);.|..err = |
|00004f20| 47 65 74 46 6c 61 76 6f | 72 46 6c 61 67 73 28 74 |GetFlavo|rFlags(t|
|00004f30| 68 65 44 72 61 67 2c 20 | 74 68 65 49 74 65 6d 2c |heDrag, |theItem,|
|00004f40| 20 6b 4e 65 77 73 57 61 | 74 63 68 65 72 53 69 67 | kNewsWa|tcherSig|
|00004f50| 6e 61 74 75 72 65 2c 20 | 26 74 68 65 46 6c 61 67 |nature, |&theFlag|
|00004f60| 73 29 3b 0d 09 09 69 66 | 20 28 65 72 72 20 21 3d |s);...if| (err !=|
|00004f70| 20 6e 6f 45 72 72 29 20 | 72 65 74 75 72 6e 20 66 | noErr) |return f|
|00004f80| 61 6c 73 65 3b 0d 09 7d | 0d 09 72 65 74 75 72 6e |alse;..}|..return|
|00004f90| 20 74 72 75 65 3b 0d 7d | 0d 0d 0d 0d 2f 2a 2d 2d | true;.}|..../*--|
|00004fa0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004fb0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004fc0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004fd0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004fe0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 0d 09 48 61 6e 64 |--------|--..Hand|
|00004ff0| 6c 65 54 72 61 63 6b 69 | 6e 67 20 0d 09 0d 09 44 |leTracki|ng ....D|
|00005000| 72 61 67 20 4d 61 6e 61 | 67 65 72 20 74 72 61 63 |rag Mana|ger trac|
|00005010| 6b 69 6e 67 20 68 61 6e | 64 6c 65 72 20 66 6f 72 |king han|dler for|
|00005020| 20 75 73 65 72 20 67 72 | 6f 75 70 20 6c 69 73 74 | user gr|oup list|
|00005030| 20 77 69 6e 64 6f 77 73 | 2e 0d 09 0d 09 45 6e 74 | windows|.....Ent|
|00005040| 72 79 3a 09 6d 65 73 73 | 61 67 65 20 3d 20 74 72 |ry:.mess|age = tr|
|00005050| 61 63 6b 69 6e 67 20 6d | 65 73 73 61 67 65 20 66 |acking m|essage f|
|00005060| 72 6f 6d 20 44 72 61 67 | 20 4d 61 6e 61 67 65 72 |rom Drag| Manager|
|00005070| 2e 0d 09 09 09 77 69 6e | 64 20 3d 20 70 6f 69 6e |.....win|d = poin|
|00005080| 74 65 72 20 74 6f 20 75 | 73 65 72 20 67 72 6f 75 |ter to u|ser grou|
|00005090| 70 20 6c 69 73 74 20 77 | 69 6e 64 6f 77 2e 0d 09 |p list w|indow...|
|000050a0| 09 09 68 61 6e 64 6c 65 | 72 52 65 66 43 6f 6e 20 |..handle|rRefCon |
|000050b0| 3d 20 72 65 66 65 72 65 | 6e 63 65 20 63 6f 6e 73 |= refere|nce cons|
|000050c0| 74 61 6e 74 20 28 6e 69 | 6c 29 2e 0d 09 09 09 74 |tant (ni|l).....t|
|000050d0| 68 65 44 72 61 67 20 3d | 20 64 72 61 67 20 72 65 |heDrag =| drag re|
|000050e0| 66 65 72 65 6e 63 65 2e | 0d 09 09 09 0d 09 45 78 |ference.|......Ex|
|000050f0| 69 74 3a 09 66 75 6e 63 | 74 69 6f 6e 20 72 65 73 |it:.func|tion res|
|00005100| 75 6c 74 20 3d 20 65 72 | 72 6f 72 20 63 6f 64 65 |ult = er|ror code|
|00005110| 2e 0d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |..------|--------|
|00005120| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005130| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005140| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005150| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2a 2f |--------|------*/|
|00005160| 0d 0d 73 74 61 74 69 63 | 20 70 61 73 63 61 6c 20 |..static| pascal |
|00005170| 4f 53 45 72 72 20 48 61 | 6e 64 6c 65 54 72 61 63 |OSErr Ha|ndleTrac|
|00005180| 6b 69 6e 67 20 28 44 72 | 61 67 54 72 61 63 6b 69 |king (Dr|agTracki|
|00005190| 6e 67 4d 65 73 73 61 67 | 65 20 6d 65 73 73 61 67 |ngMessag|e messag|
|000051a0| 65 2c 0d 09 57 69 6e 64 | 6f 77 50 74 72 20 77 69 |e,..Wind|owPtr wi|
|000051b0| 6e 64 2c 20 76 6f 69 64 | 20 2a 68 61 6e 64 6c 65 |nd, void| *handle|
|000051c0| 72 52 65 66 43 6f 6e 2c | 20 44 72 61 67 52 65 66 |rRefCon,| DragRef|
|000051d0| 65 72 65 6e 63 65 20 74 | 68 65 44 72 61 67 29 0d |erence t|heDrag).|
|000051e0| 7b 0d 09 54 57 69 6e 64 | 6f 77 20 2a 2a 69 6e 66 |{..TWind|ow **inf|
|000051f0| 6f 3b 0d 09 4c 69 73 74 | 48 61 6e 64 6c 65 20 74 |o;..List|Handle t|
|00005200| 68 65 4c 69 73 74 3b 0d | 09 52 65 63 74 20 72 56 |heList;.|.Rect rV|
|00005210| 69 65 77 2c 20 63 6f 6e | 74 65 6e 74 52 65 63 74 |iew, con|tentRect|
|00005220| 2c 20 76 69 73 69 62 6c | 65 2c 20 64 61 74 61 42 |, visibl|e, dataB|
|00005230| 6f 75 6e 64 73 3b 0d 09 | 50 6f 69 6e 74 20 77 68 |ounds;..|Point wh|
|00005240| 65 72 65 3b 0d 09 44 72 | 61 67 41 74 74 72 69 62 |ere;..Dr|agAttrib|
|00005250| 75 74 65 73 20 61 74 74 | 72 69 62 75 74 65 73 3b |utes att|ributes;|
|00005260| 0d 09 73 74 61 74 69 63 | 20 42 6f 6f 6c 65 61 6e |..static| Boolean|
|00005270| 20 63 61 6e 41 63 63 65 | 70 74 44 72 61 67 3b 0d | canAcce|ptDrag;.|
|00005280| 09 73 74 61 74 69 63 20 | 42 6f 6f 6c 65 61 6e 20 |.static |Boolean |
|00005290| 68 69 6c 69 74 65 3b 0d | 09 73 68 6f 72 74 20 6e |hilite;.|.short n|
|000052a0| 65 77 44 65 73 74 52 6f | 77 3b 0d 09 52 67 6e 48 |ewDestRo|w;..RgnH|
|000052b0| 61 6e 64 6c 65 20 72 67 | 6e 20 3d 20 6e 69 6c 3b |andle rg|n = nil;|
|000052c0| 0d 09 42 6f 6f 6c 65 61 | 6e 20 69 6e 43 6f 6e 74 |..Boolea|n inCont|
|000052d0| 65 6e 74 52 65 63 74 2c | 20 6c 65 66 74 53 65 6e |entRect,| leftSen|
|000052e0| 64 65 72 2c 20 69 6e 53 | 65 6e 64 65 72 2c 20 63 |der, inS|ender, c|
|000052f0| 61 6e 41 75 74 6f 53 63 | 72 6f 6c 6c 3b 0d 09 73 |anAutoSc|roll;..s|
|00005300| 68 6f 72 74 20 73 63 72 | 6f 6c 6c 44 65 6c 74 61 |hort scr|ollDelta|
|00005310| 3b 0d 09 73 74 61 74 69 | 63 20 73 68 6f 72 74 20 |;..stati|c short |
|00005320| 70 72 65 76 53 63 72 6f | 6c 6c 44 65 6c 74 61 3b |prevScro|llDelta;|
|00005330| 0d 09 73 74 61 74 69 63 | 20 6c 6f 6e 67 20 73 63 |..static| long sc|
|00005340| 72 6f 6c 6c 54 69 63 6b | 43 6f 75 6e 74 3b 0d 09 |rollTick|Count;..|
|00005350| 0d 09 69 66 20 28 67 4c | 6f 6e 67 4f 70 65 72 61 |..if (gL|ongOpera|
|00005360| 74 69 6f 6e 20 7c 7c 20 | 67 49 6e 44 69 61 6c 6f |tion || |gInDialo|
|00005370| 67 29 20 72 65 74 75 72 | 6e 20 75 73 65 72 43 61 |g) retur|n userCa|
|00005380| 6e 63 65 6c 65 64 45 72 | 72 3b 0d 09 0d 09 69 66 |nceledEr|r;....if|
|00005390| 20 28 67 44 72 61 67 45 | 72 72 20 21 3d 20 6e 6f | (gDragE|rr != no|
|000053a0| 45 72 72 29 20 6d 65 73 | 73 61 67 65 20 3d 20 64 |Err) mes|sage = d|
|000053b0| 72 61 67 54 72 61 63 6b | 69 6e 67 4c 65 61 76 65 |ragTrack|ingLeave|
|000053c0| 57 69 6e 64 6f 77 3b 0d | 09 0d 09 47 65 74 44 72 |Window;.|...GetDr|
|000053d0| 61 67 41 74 74 72 69 62 | 75 74 65 73 28 74 68 65 |agAttrib|utes(the|
|000053e0| 44 72 61 67 2c 20 26 61 | 74 74 72 69 62 75 74 65 |Drag, &a|ttribute|
|000053f0| 73 29 3b 0d 09 6c 65 66 | 74 53 65 6e 64 65 72 20 |s);..lef|tSender |
|00005400| 3d 20 28 61 74 74 72 69 | 62 75 74 65 73 20 26 20 |= (attri|butes & |
|00005410| 64 72 61 67 48 61 73 4c | 65 66 74 53 65 6e 64 65 |dragHasL|eftSende|
|00005420| 72 57 69 6e 64 6f 77 29 | 20 21 3d 20 30 3b 0d 09 |rWindow)| != 0;..|
|00005430| 69 6e 53 65 6e 64 65 72 | 20 3d 20 28 61 74 74 72 |inSender| = (attr|
|00005440| 69 62 75 74 65 73 20 26 | 20 64 72 61 67 49 6e 73 |ibutes &| dragIns|
|00005450| 69 64 65 53 65 6e 64 65 | 72 57 69 6e 64 6f 77 29 |ideSende|rWindow)|
|00005460| 20 21 3d 20 30 3b 0d 09 | 69 6e 66 6f 20 3d 20 28 | != 0;..|info = (|
|00005470| 54 57 69 6e 64 6f 77 2a | 2a 29 47 65 74 57 52 65 |TWindow*|*)GetWRe|
|00005480| 66 43 6f 6e 28 77 69 6e | 64 29 3b 0d 09 74 68 65 |fCon(win|d);..the|
|00005490| 4c 69 73 74 20 3d 20 28 | 2a 2a 69 6e 66 6f 29 2e |List = (|**info).|
|000054a0| 74 68 65 4c 69 73 74 3b | 0d 09 76 69 73 69 62 6c |theList;|..visibl|
|000054b0| 65 20 3d 20 28 2a 2a 74 | 68 65 4c 69 73 74 29 2e |e = (**t|heList).|
|000054c0| 76 69 73 69 62 6c 65 3b | 0d 09 64 61 74 61 42 6f |visible;|..dataBo|
|000054d0| 75 6e 64 73 20 3d 20 28 | 2a 2a 74 68 65 4c 69 73 |unds = (|**theLis|
|000054e0| 74 29 2e 64 61 74 61 42 | 6f 75 6e 64 73 3b 0d 09 |t).dataB|ounds;..|
|000054f0| 72 56 69 65 77 20 3d 20 | 28 2a 2a 74 68 65 4c 69 |rView = |(**theLi|
|00005500| 73 74 29 2e 72 56 69 65 | 77 3b 0d 09 63 6f 6e 74 |st).rVie|w;..cont|
|00005510| 65 6e 74 52 65 63 74 20 | 3d 20 72 56 69 65 77 3b |entRect |= rView;|
|00005520| 0d 09 63 6f 6e 74 65 6e | 74 52 65 63 74 2e 74 6f |..conten|tRect.to|
|00005530| 70 20 3d 20 30 3b 0d 09 | 63 6f 6e 74 65 6e 74 52 |p = 0;..|contentR|
|00005540| 65 63 74 2e 62 6f 74 74 | 6f 6d 20 3d 20 77 69 6e |ect.bott|om = win|
|00005550| 64 2d 3e 70 6f 72 74 52 | 65 63 74 2e 62 6f 74 74 |d->portR|ect.bott|
|00005560| 6f 6d 3b 0d 09 0d 09 2f | 2a 20 4e 6f 74 65 3a 20 |om;..../|* Note: |
|00005570| 41 70 70 6c 65 27 73 20 | 22 44 72 61 67 20 61 6e |Apple's |"Drag an|
|00005580| 64 20 44 72 6f 70 20 48 | 75 6d 61 6e 20 49 6e 74 |d Drop H|uman Int|
|00005590| 65 72 66 61 63 65 20 47 | 75 69 64 65 6c 69 6e 65 |erface G|uideline|
|000055a0| 73 22 20 70 72 6f 68 69 | 62 69 74 20 61 75 74 6f |s" prohi|bit auto|
|000055b0| 73 63 72 6f 6c 6c 69 6e | 67 0d 09 20 20 20 75 6e |scrollin|g..   un|
|000055c0| 6c 65 73 73 20 74 68 65 | 20 73 6f 75 72 63 65 20 |less the| source |
|000055d0| 61 6e 64 20 64 65 73 74 | 69 6e 61 74 69 6f 6e 20 |and dest|ination |
|000055e0| 77 69 6e 64 6f 77 73 20 | 61 72 65 20 74 68 65 20 |windows |are the |
|000055f0| 73 61 6d 65 20 61 6e 64 | 20 74 68 65 20 77 69 6e |same and| the win|
|00005600| 64 6f 77 20 69 73 0d 09 | 20 20 20 66 72 6f 6e 74 |dow is..|   front|
|00005610| 6d 6f 73 74 2e 20 49 20 | 64 6f 20 6e 6f 74 20 6c |most. I |do not l|
|00005620| 69 6b 65 20 74 68 69 73 | 20 72 75 6c 65 2c 20 61 |ike this| rule, a|
|00005630| 6e 64 20 68 61 76 65 20 | 64 65 6c 69 62 65 72 61 |nd have |delibera|
|00005640| 74 65 6c 79 20 62 72 6f | 6b 65 6e 20 69 74 2e 20 |tely bro|ken it. |
|00005650| 49 20 70 65 72 6d 69 74 | 0d 09 20 20 20 61 75 74 |I permit|..   aut|
|00005660| 6f 73 63 72 6f 6c 6c 69 | 6e 67 20 69 6e 61 63 74 |oscrolli|ng inact|
|00005670| 69 76 65 20 77 69 6e 64 | 6f 77 73 20 64 75 72 69 |ive wind|ows duri|
|00005680| 6e 67 20 67 72 6f 75 70 | 20 64 72 61 67 73 2e 20 |ng group| drags. |
|00005690| 2a 2f 0d 09 0d 2f 2a 09 | 63 61 6e 41 75 74 6f 53 |*/.../*.|canAutoS|
|000056a0| 63 72 6f 6c 6c 20 3d 20 | 69 6e 53 65 6e 64 65 72 |croll = |inSender|
|000056b0| 20 26 26 20 77 69 6e 64 | 20 3d 3d 20 46 72 6f 6e | && wind| == Fron|
|000056c0| 74 57 69 6e 64 6f 77 28 | 29 3b 2a 2f 0d 09 63 61 |tWindow(|);*/..ca|
|000056d0| 6e 41 75 74 6f 53 63 72 | 6f 6c 6c 20 3d 20 74 72 |nAutoScr|oll = tr|
|000056e0| 75 65 3b 0d 09 0d 09 73 | 77 69 74 63 68 20 28 6d |ue;....s|witch (m|
|000056f0| 65 73 73 61 67 65 29 20 | 7b 0d 09 0d 09 09 63 61 |essage) |{.....ca|
|00005700| 73 65 20 64 72 61 67 54 | 72 61 63 6b 69 6e 67 45 |se dragT|rackingE|
|00005710| 6e 74 65 72 48 61 6e 64 | 6c 65 72 3a 0d 09 09 0d |nterHand|ler:....|
|00005720| 09 09 09 62 72 65 61 6b | 3b 0d 09 09 09 0d 09 09 |...break|;.......|
|00005730| 63 61 73 65 20 64 72 61 | 67 54 72 61 63 6b 69 6e |case dra|gTrackin|
|00005740| 67 45 6e 74 65 72 57 69 | 6e 64 6f 77 3a 0d 09 09 |gEnterWi|ndow:...|
|00005750| 0d 09 09 09 63 61 6e 41 | 63 63 65 70 74 44 72 61 |....canA|cceptDra|
|00005760| 67 20 3d 20 43 61 6e 41 | 63 63 65 70 74 44 72 61 |g = CanA|cceptDra|
|00005770| 67 28 74 68 65 44 72 61 | 67 29 3b 0d 09 09 09 68 |g(theDra|g);....h|
|00005780| 69 6c 69 74 65 20 3d 20 | 66 61 6c 73 65 3b 0d 09 |ilite = |false;..|
|00005790| 09 09 67 44 72 61 67 44 | 65 73 74 52 6f 77 20 3d |..gDragD|estRow =|
|000057a0| 20 2d 31 3b 0d 09 09 09 | 70 72 65 76 53 63 72 6f | -1;....|prevScro|
|000057b0| 6c 6c 44 65 6c 74 61 20 | 3d 20 30 3b 0d 09 09 09 |llDelta |= 0;....|
|000057c0| 62 72 65 61 6b 3b 0d 09 | 09 09 0d 09 09 63 61 73 |break;..|.....cas|
|000057d0| 65 20 64 72 61 67 54 72 | 61 63 6b 69 6e 67 49 6e |e dragTr|ackingIn|
|000057e0| 57 69 6e 64 6f 77 3a 0d | 09 09 0d 09 09 09 69 66 |Window:.|......if|
|000057f0| 20 28 21 63 61 6e 41 63 | 63 65 70 74 44 72 61 67 | (!canAc|ceptDrag|
|00005800| 29 20 62 72 65 61 6b 3b | 0d 09 09 09 47 65 74 44 |) break;|....GetD|
|00005810| 72 61 67 4d 6f 75 73 65 | 28 74 68 65 44 72 61 67 |ragMouse|(theDrag|
|00005820| 2c 20 26 77 68 65 72 65 | 2c 20 6e 69 6c 29 3b 0d |, &where|, nil);.|
|00005830| 09 09 09 47 6c 6f 62 61 | 6c 54 6f 4c 6f 63 61 6c |...Globa|lToLocal|
|00005840| 28 26 77 68 65 72 65 29 | 3b 0d 09 09 09 69 6e 43 |(&where)|;....inC|
|00005850| 6f 6e 74 65 6e 74 52 65 | 63 74 20 3d 20 50 74 49 |ontentRe|ct = PtI|
|00005860| 6e 52 65 63 74 28 77 68 | 65 72 65 2c 20 26 63 6f |nRect(wh|ere, &co|
|00005870| 6e 74 65 6e 74 52 65 63 | 74 29 3b 0d 09 09 09 69 |ntentRec|t);....i|
|00005880| 66 20 28 69 6e 43 6f 6e | 74 65 6e 74 52 65 63 74 |f (inCon|tentRect|
|00005890| 29 20 7b 0d 09 09 09 09 | 69 66 20 28 6c 65 66 74 |) {.....|if (left|
|000058a0| 53 65 6e 64 65 72 20 26 | 26 20 21 68 69 6c 69 74 |Sender &|& !hilit|
|000058b0| 65 29 20 7b 0d 09 09 09 | 09 09 72 67 6e 20 3d 20 |e) {....|..rgn = |
|000058c0| 4e 65 77 52 67 6e 28 29 | 3b 0d 09 09 09 09 09 52 |NewRgn()|;......R|
|000058d0| 65 63 74 52 67 6e 28 72 | 67 6e 2c 20 26 72 56 69 |ectRgn(r|gn, &rVi|
|000058e0| 65 77 29 3b 0d 09 09 09 | 09 09 53 68 6f 77 44 72 |ew);....|..ShowDr|
|000058f0| 61 67 48 69 6c 69 74 65 | 28 74 68 65 44 72 61 67 |agHilite|(theDrag|
|00005900| 2c 20 72 67 6e 2c 20 74 | 72 75 65 29 3b 0d 09 09 |, rgn, t|rue);...|
|00005910| 09 09 09 44 69 73 70 6f | 73 65 52 67 6e 28 72 67 |...Dispo|seRgn(rg|
|00005920| 6e 29 3b 0d 09 09 09 09 | 09 68 69 6c 69 74 65 20 |n);.....|.hilite |
|00005930| 3d 20 74 72 75 65 3b 0d | 09 09 09 09 7d 0d 09 09 |= true;.|....}...|
|00005940| 09 09 73 63 72 6f 6c 6c | 44 65 6c 74 61 20 3d 20 |..scroll|Delta = |
|00005950| 30 3b 0d 09 09 09 09 69 | 66 20 28 63 61 6e 41 75 |0;.....i|f (canAu|
|00005960| 74 6f 53 63 72 6f 6c 6c | 20 26 26 20 67 44 72 61 |toScroll| && gDra|
|00005970| 67 44 65 73 74 52 6f 77 | 20 3e 3d 20 30 29 20 7b |gDestRow| >= 0) {|
|00005980| 0d 09 09 09 09 09 69 66 | 20 28 77 68 65 72 65 2e |......if| (where.|
|00005990| 76 20 3c 20 72 56 69 65 | 77 2e 74 6f 70 20 26 26 |v < rVie|w.top &&|
|000059a0| 20 76 69 73 69 62 6c 65 | 2e 74 6f 70 20 3e 20 30 | visible|.top > 0|
|000059b0| 29 20 7b 0d 09 09 09 09 | 09 09 73 63 72 6f 6c 6c |) {.....|..scroll|
|000059c0| 44 65 6c 74 61 20 3d 20 | 2d 31 3b 0d 09 09 09 09 |Delta = |-1;.....|
|000059d0| 09 7d 20 65 6c 73 65 20 | 69 66 20 28 77 68 65 72 |.} else |if (wher|
|000059e0| 65 2e 76 20 3e 20 72 56 | 69 65 77 2e 62 6f 74 74 |e.v > rV|iew.bott|
|000059f0| 6f 6d 20 26 26 20 0d 09 | 09 09 09 09 09 76 69 73 |om && ..|.....vis|
|00005a00| 69 62 6c 65 2e 62 6f 74 | 74 6f 6d 20 3c 20 64 61 |ible.bot|tom < da|
|00005a10| 74 61 42 6f 75 6e 64 73 | 2e 62 6f 74 74 6f 6d 29 |taBounds|.bottom)|
|00005a20| 20 0d 09 09 09 09 09 7b | 0d 09 09 09 09 09 09 73 | ......{|.......s|
|00005a30| 63 72 6f 6c 6c 44 65 6c | 74 61 20 3d 20 2b 31 3b |crollDel|ta = +1;|
|00005a40| 0d 09 09 09 09 09 7d 0d | 09 09 09 09 7d 0d 09 09 |......}.|....}...|
|00005a50| 09 09 69 66 20 28 73 63 | 72 6f 6c 6c 44 65 6c 74 |..if (sc|rollDelt|
|00005a60| 61 20 3d 3d 20 70 72 65 | 76 53 63 72 6f 6c 6c 44 |a == pre|vScrollD|
|00005a70| 65 6c 74 61 29 20 7b 0d | 09 09 09 09 09 69 66 20 |elta) {.|.....if |
|00005a80| 28 73 63 72 6f 6c 6c 44 | 65 6c 74 61 20 21 3d 20 |(scrollD|elta != |
|00005a90| 30 20 26 26 20 54 69 63 | 6b 43 6f 75 6e 74 28 29 |0 && Tic|kCount()|
|00005aa0| 20 2d 20 73 63 72 6f 6c | 6c 54 69 63 6b 43 6f 75 | - scrol|lTickCou|
|00005ab0| 6e 74 20 3c 20 31 30 29 | 20 0d 09 09 09 09 09 09 |nt < 10)| .......|
|00005ac0| 73 63 72 6f 6c 6c 44 65 | 6c 74 61 20 3d 20 30 3b |scrollDe|lta = 0;|
|00005ad0| 0d 09 09 09 09 7d 20 65 | 6c 73 65 20 7b 0d 09 09 |.....} e|lse {...|
|00005ae0| 09 09 09 70 72 65 76 53 | 63 72 6f 6c 6c 44 65 6c |...prevS|crollDel|
|00005af0| 74 61 20 3d 20 73 63 72 | 6f 6c 6c 44 65 6c 74 61 |ta = scr|ollDelta|
|00005b00| 3b 0d 09 09 09 09 09 73 | 63 72 6f 6c 6c 44 65 6c |;......s|crollDel|
|00005b10| 74 61 20 3d 20 30 3b 0d | 09 09 09 09 09 73 63 72 |ta = 0;.|.....scr|
|00005b20| 6f 6c 6c 54 69 63 6b 43 | 6f 75 6e 74 20 3d 20 54 |ollTickC|ount = T|
|00005b30| 69 63 6b 43 6f 75 6e 74 | 28 29 3b 0d 09 09 09 09 |ickCount|();.....|
|00005b40| 7d 20 0d 09 09 09 09 69 | 66 20 28 73 63 72 6f 6c |} .....i|f (scrol|
|00005b50| 6c 44 65 6c 74 61 20 21 | 3d 20 30 29 20 7b 0d 09 |lDelta !|= 0) {..|
|00005b60| 09 09 09 09 44 72 61 77 | 4c 69 73 74 44 69 76 69 |....Draw|ListDivi|
|00005b70| 64 69 6e 67 4c 69 6e 65 | 28 74 68 65 4c 69 73 74 |dingLine|(theList|
|00005b80| 2c 20 67 44 72 61 67 44 | 65 73 74 52 6f 77 29 3b |, gDragD|estRow);|
|00005b90| 0d 09 09 09 09 09 67 44 | 72 61 67 44 65 73 74 52 |......gD|ragDestR|
|00005ba0| 6f 77 20 3d 20 2d 31 3b | 0d 09 09 09 09 09 67 44 |ow = -1;|......gD|
|00005bb0| 72 61 67 45 72 72 20 3d | 20 44 72 61 67 50 72 65 |ragErr =| DragPre|
|00005bc0| 53 63 72 6f 6c 6c 28 74 | 68 65 44 72 61 67 2c 20 |Scroll(t|heDrag, |
|00005bd0| 30 2c 20 0d 09 09 09 09 | 09 09 2d 73 63 72 6f 6c |0, .....|..-scrol|
|00005be0| 6c 44 65 6c 74 61 20 2a | 20 28 2a 2a 74 68 65 4c |lDelta *| (**theL|
|00005bf0| 69 73 74 29 2e 63 65 6c | 6c 53 69 7a 65 2e 76 29 |ist).cel|lSize.v)|
|00005c00| 3b 0d 09 09 09 09 09 69 | 66 20 28 67 44 72 61 67 |;......i|f (gDrag|
|00005c10| 45 72 72 20 21 3d 20 6e | 6f 45 72 72 29 20 72 65 |Err != n|oErr) re|
|00005c20| 74 75 72 6e 20 67 44 72 | 61 67 45 72 72 3b 0d 09 |turn gDr|agErr;..|
|00005c30| 09 09 09 09 4d 79 4c 53 | 63 72 6f 6c 6c 28 73 63 |....MyLS|croll(sc|
|00005c40| 72 6f 6c 6c 44 65 6c 74 | 61 2c 20 74 68 65 4c 69 |rollDelt|a, theLi|
|00005c50| 73 74 29 3b 0d 09 09 09 | 09 09 67 44 72 61 67 45 |st);....|..gDragE|
|00005c60| 72 72 20 3d 20 44 72 61 | 67 50 6f 73 74 53 63 72 |rr = Dra|gPostScr|
|00005c70| 6f 6c 6c 28 74 68 65 44 | 72 61 67 29 3b 0d 09 09 |oll(theD|rag);...|
|00005c80| 09 09 09 69 66 20 28 67 | 44 72 61 67 45 72 72 20 |...if (g|DragErr |
|00005c90| 21 3d 20 6e 6f 45 72 72 | 29 20 72 65 74 75 72 6e |!= noErr|) return|
|00005ca0| 20 67 44 72 61 67 45 72 | 72 3b 0d 09 09 09 09 7d | gDragEr|r;.....}|
|00005cb0| 0d 09 09 09 09 6e 65 77 | 44 65 73 74 52 6f 77 20 |.....new|DestRow |
|00005cc0| 3d 20 4c 69 73 74 44 65 | 73 74 69 6e 61 74 69 6f |= ListDe|stinatio|
|00005cd0| 6e 52 6f 77 28 74 68 65 | 4c 69 73 74 2c 20 77 68 |nRow(the|List, wh|
|00005ce0| 65 72 65 29 3b 0d 09 09 | 09 09 69 66 20 28 6e 65 |ere);...|..if (ne|
|00005cf0| 77 44 65 73 74 52 6f 77 | 20 21 3d 20 67 44 72 61 |wDestRow| != gDra|
|00005d00| 67 44 65 73 74 52 6f 77 | 29 20 7b 0d 09 09 09 09 |gDestRow|) {.....|
|00005d10| 09 69 66 20 28 67 44 72 | 61 67 44 65 73 74 52 6f |.if (gDr|agDestRo|
|00005d20| 77 20 3e 3d 20 30 29 20 | 44 72 61 77 4c 69 73 74 |w >= 0) |DrawList|
|00005d30| 44 69 76 69 64 69 6e 67 | 4c 69 6e 65 28 74 68 65 |Dividing|Line(the|
|00005d40| 4c 69 73 74 2c 20 67 44 | 72 61 67 44 65 73 74 52 |List, gD|ragDestR|
|00005d50| 6f 77 29 3b 0d 09 09 09 | 09 09 67 44 72 61 67 44 |ow);....|..gDragD|
|00005d60| 65 73 74 52 6f 77 20 3d | 20 6e 65 77 44 65 73 74 |estRow =| newDest|
|00005d70| 52 6f 77 3b 0d 09 09 09 | 09 09 44 72 61 77 4c 69 |Row;....|..DrawLi|
|00005d80| 73 74 44 69 76 69 64 69 | 6e 67 4c 69 6e 65 28 74 |stDividi|ngLine(t|
|00005d90| 68 65 4c 69 73 74 2c 20 | 67 44 72 61 67 44 65 73 |heList, |gDragDes|
|00005da0| 74 52 6f 77 29 3b 0d 09 | 09 09 09 7d 0d 09 09 09 |tRow);..|...}....|
|00005db0| 7d 20 65 6c 73 65 20 7b | 0d 09 09 09 09 69 66 20 |} else {|.....if |
|00005dc0| 28 67 44 72 61 67 44 65 | 73 74 52 6f 77 20 3e 3d |(gDragDe|stRow >=|
|00005dd0| 20 30 29 20 7b 0d 09 09 | 09 09 09 44 72 61 77 4c | 0) {...|...DrawL|
|00005de0| 69 73 74 44 69 76 69 64 | 69 6e 67 4c 69 6e 65 28 |istDivid|ingLine(|
|00005df0| 74 68 65 4c 69 73 74 2c | 20 67 44 72 61 67 44 65 |theList,| gDragDe|
|00005e00| 73 74 52 6f 77 29 3b 0d | 09 09 09 09 09 67 44 72 |stRow);.|.....gDr|
|00005e10| 61 67 44 65 73 74 52 6f | 77 20 3d 20 2d 31 3b 0d |agDestRo|w = -1;.|
|00005e20| 09 09 09 09 7d 0d 09 09 | 09 09 69 66 20 28 68 69 |....}...|..if (hi|
|00005e30| 6c 69 74 65 29 20 7b 0d | 09 09 09 09 09 48 69 64 |lite) {.|.....Hid|
|00005e40| 65 44 72 61 67 48 69 6c | 69 74 65 28 74 68 65 44 |eDragHil|ite(theD|
|00005e50| 72 61 67 29 3b 0d 09 09 | 09 09 09 68 69 6c 69 74 |rag);...|...hilit|
|00005e60| 65 20 3d 20 66 61 6c 73 | 65 3b 0d 09 09 09 09 7d |e = fals|e;.....}|
|00005e70| 0d 09 09 09 09 70 72 65 | 76 53 63 72 6f 6c 6c 44 |.....pre|vScrollD|
|00005e80| 65 6c 74 61 20 3d 20 30 | 3b 0d 09 09 09 7d 0d 09 |elta = 0|;....}..|
|00005e90| 09 09 62 72 65 61 6b 3b | 0d 09 09 09 0d 09 09 63 |..break;|.......c|
|00005ea0| 61 73 65 20 64 72 61 67 | 54 72 61 63 6b 69 6e 67 |ase drag|Tracking|
|00005eb0| 4c 65 61 76 65 57 69 6e | 64 6f 77 3a 0d 09 09 0d |LeaveWin|dow:....|
|00005ec0| 09 09 09 69 66 20 28 67 | 44 72 61 67 44 65 73 74 |...if (g|DragDest|
|00005ed0| 52 6f 77 20 3e 3d 20 30 | 29 20 44 72 61 77 4c 69 |Row >= 0|) DrawLi|
|00005ee0| 73 74 44 69 76 69 64 69 | 6e 67 4c 69 6e 65 28 74 |stDividi|ngLine(t|
|00005ef0| 68 65 4c 69 73 74 2c 20 | 67 44 72 61 67 44 65 73 |heList, |gDragDes|
|00005f00| 74 52 6f 77 29 3b 0d 09 | 09 09 67 44 72 61 67 44 |tRow);..|..gDragD|
|00005f10| 65 73 74 52 6f 77 20 3d | 20 2d 31 3b 0d 09 09 09 |estRow =| -1;....|
|00005f20| 69 66 20 28 68 69 6c 69 | 74 65 29 20 48 69 64 65 |if (hili|te) Hide|
|00005f30| 44 72 61 67 48 69 6c 69 | 74 65 28 74 68 65 44 72 |DragHili|te(theDr|
|00005f40| 61 67 29 3b 0d 09 09 09 | 68 69 6c 69 74 65 20 3d |ag);....|hilite =|
|00005f50| 20 66 61 6c 73 65 3b 0d | 09 09 09 70 72 65 76 53 | false;.|...prevS|
|00005f60| 63 72 6f 6c 6c 44 65 6c | 74 61 20 3d 20 30 3b 0d |crollDel|ta = 0;.|
|00005f70| 09 09 09 62 72 65 61 6b | 3b 0d 09 0d 09 09 63 61 |...break|;.....ca|
|00005f80| 73 65 20 64 72 61 67 54 | 72 61 63 6b 69 6e 67 4c |se dragT|rackingL|
|00005f90| 65 61 76 65 48 61 6e 64 | 6c 65 72 3a 0d 09 09 0d |eaveHand|ler:....|
|00005fa0| 09 09 09 62 72 65 61 6b | 3b 0d 09 09 09 0d 09 7d |...break|;......}|
|00005fb0| 0d 0d 09 72 65 74 75 72 | 6e 20 6e 6f 45 72 72 3b |...retur|n noErr;|
|00005fc0| 0d 7d 0d 0d 0d 0d 2f 2a | 2d 2d 2d 2d 2d 2d 2d 2d |.}..../*|--------|
|00005fd0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005fe0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005ff0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00006000| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00006010| 2d 2d 2d 2d 0d 09 48 61 | 6e 64 6c 65 52 65 63 65 |----..Ha|ndleRece|
|00006020| 69 76 65 50 6f 73 74 50 | 72 6f 63 65 73 73 6f 72 |ivePostP|rocessor|
|00006030| 20 0d 09 0d 09 44 72 61 | 67 20 4d 61 6e 61 67 65 | ....Dra|g Manage|
|00006040| 72 20 72 65 63 65 69 76 | 65 20 68 61 6e 64 6c 65 |r receiv|e handle|
|00006050| 72 20 70 6f 73 74 20 70 | 72 6f 63 65 73 73 6f 72 |r post p|rocessor|
|00006060| 20 66 6f 72 20 75 73 65 | 72 20 67 72 6f 75 70 20 | for use|r group |
|00006070| 6c 69 73 74 20 77 69 6e | 64 6f 77 73 2e 0d 09 0d |list win|dows....|
|00006080| 09 45 6e 74 72 79 3a 09 | 67 44 72 61 67 53 72 63 |.Entry:.|gDragSrc|
|00006090| 57 69 6e 64 6f 77 20 3d | 20 70 6f 69 6e 74 65 72 |Window =| pointer|
|000060a0| 20 74 6f 20 64 72 61 67 | 20 73 6f 75 72 63 65 20 | to drag| source |
|000060b0| 77 69 6e 64 6f 77 2c 20 | 6f 72 20 6e 69 6c 20 69 |window, |or nil i|
|000060c0| 66 0d 09 09 09 09 73 6f | 75 72 63 65 20 77 61 73 |f.....so|urce was|
|000060d0| 20 64 69 66 66 65 72 65 | 6e 74 20 61 70 70 6c 69 | differe|nt appli|
|000060e0| 63 61 74 69 6f 6e 2e 0d | 09 09 09 67 44 72 61 67 |cation..|...gDrag|
|000060f0| 44 65 73 74 57 69 6e 64 | 6f 77 20 3d 20 70 6f 69 |DestWind|ow = poi|
|00006100| 6e 74 65 72 20 74 6f 20 | 64 65 73 74 69 6e 61 74 |nter to |destinat|
|00006110| 69 6f 6e 20 77 69 6e 64 | 6f 77 2e 0d 09 09 09 67 |ion wind|ow.....g|
|00006120| 44 72 61 67 4f 70 74 69 | 6f 6e 4b 65 79 20 3d 20 |DragOpti|onKey = |
|00006130| 74 72 75 65 20 69 66 20 | 6f 70 74 69 6f 6e 2d 64 |true if |option-d|
|00006140| 72 61 67 2e 0d 09 09 09 | 67 46 69 6e 61 6c 44 72 |rag.....|gFinalDr|
|00006150| 61 67 44 65 73 74 52 6f | 77 20 3d 20 66 69 6e 61 |agDestRo|w = fina|
|00006160| 6c 20 64 72 61 67 20 64 | 65 73 74 69 6e 61 74 69 |l drag d|estinati|
|00006170| 6f 6e 20 72 6f 77 2e 0d | 09 09 09 67 44 72 61 67 |on row..|...gDrag|
|00006180| 44 61 74 61 20 3d 20 68 | 61 6e 64 6c 65 20 74 6f |Data = h|andle to|
|00006190| 20 64 72 61 67 20 64 61 | 74 61 20 69 66 20 73 6f | drag da|ta if so|
|000061a0| 75 72 63 65 20 77 61 73 | 20 64 69 66 66 65 72 65 |urce was| differe|
|000061b0| 6e 74 20 61 70 70 6c 69 | 63 61 74 69 6f 6e 2e 0d |nt appli|cation..|
|000061c0| 09 09 09 0d 09 45 78 69 | 74 3a 09 66 75 6e 63 74 |.....Exi|t:.funct|
|000061d0| 69 6f 6e 20 72 65 73 75 | 6c 74 20 3d 20 65 72 72 |ion resu|lt = err|
|000061e0| 6f 72 20 63 6f 64 65 2e | 0d 09 0d 09 4e 6f 74 65 |or code.|....Note|
|000061f0| 3a 20 55 73 65 72 20 69 | 6e 74 65 72 61 63 74 69 |: User i|nteracti|
|00006200| 6f 6e 20 61 6e 64 20 6e | 65 74 77 6f 72 6b 20 74 |on and n|etwork t|
|00006210| 72 61 6e 73 61 63 74 69 | 6f 6e 73 20 61 72 65 20 |ransacti|ons are |
|00006220| 70 65 72 6d 69 74 74 65 | 64 20 69 6e 0d 09 74 68 |permitte|d in..th|
|00006230| 69 73 20 66 75 6e 63 74 | 69 6f 6e 2e 0d 2d 2d 2d |is funct|ion..---|
|00006240| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00006250| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00006260| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00006270| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00006280| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2a 2f 0d 0d 73 74 61 |--------|-*/..sta|
|00006290| 74 69 63 20 4f 53 45 72 | 72 20 48 61 6e 64 6c 65 |tic OSEr|r Handle|
|000062a0| 52 65 63 65 69 76 65 50 | 6f 73 74 50 72 6f 63 65 |ReceiveP|ostProce|
|000062b0| 73 73 6f 72 20 28 76 6f | 69 64 29 0d 7b 0d 09 54 |ssor (vo|id).{..T|
|000062c0| 57 69 6e 64 6f 77 20 2a | 2a 73 72 63 49 6e 66 6f |Window *|*srcInfo|
|000062d0| 3b 0d 09 54 47 72 6f 75 | 70 57 69 6e 64 6f 77 4b |;..TGrou|pWindowK|
|000062e0| 69 6e 64 20 73 72 63 4b | 69 6e 64 3b 0d 09 42 6f |ind srcK|ind;..Bo|
|000062f0| 6f 6c 65 61 6e 20 63 68 | 61 6e 67 65 64 3b 0d 09 |olean ch|anged;..|
|00006300| 4f 53 45 72 72 20 65 72 | 72 20 3d 20 6e 6f 45 72 |OSErr er|r = noEr|
|00006310| 72 3b 0d 09 0d 09 69 66 | 20 28 67 44 72 61 67 53 |r;....if| (gDragS|
|00006320| 72 63 57 69 6e 64 6f 77 | 20 3d 3d 20 6e 69 6c 29 |rcWindow| == nil)|
|00006330| 20 7b 0d 09 09 65 72 72 | 20 3d 20 43 6f 70 79 47 | {...err| = CopyG|
|00006340| 72 6f 75 70 73 46 72 6f | 6d 53 63 72 61 70 28 67 |roupsFro|mScrap(g|
|00006350| 44 72 61 67 44 61 74 61 | 2c 20 67 44 72 61 67 44 |DragData|, gDragD|
|00006360| 65 73 74 57 69 6e 64 6f | 77 2c 20 67 46 69 6e 61 |estWindo|w, gFina|
|00006370| 6c 44 72 61 67 44 65 73 | 74 52 6f 77 29 3b 0d 09 |lDragDes|tRow);..|
|00006380| 09 4d 79 44 69 73 70 6f | 73 65 48 61 6e 64 6c 65 |.MyDispo|seHandle|
|00006390| 28 67 44 72 61 67 44 61 | 74 61 29 3b 0d 09 09 72 |(gDragDa|ta);...r|
|000063a0| 65 74 75 72 6e 20 65 72 | 72 3b 0d 09 7d 0d 0d 09 |eturn er|r;..}...|
|000063b0| 73 72 63 49 6e 66 6f 20 | 3d 20 28 54 57 69 6e 64 |srcInfo |= (TWind|
|000063c0| 6f 77 2a 2a 29 47 65 74 | 57 52 65 66 43 6f 6e 28 |ow**)Get|WRefCon(|
|000063d0| 67 44 72 61 67 53 72 63 | 57 69 6e 64 6f 77 29 3b |gDragSrc|Window);|
|000063e0| 0d 09 73 72 63 4b 69 6e | 64 20 3d 20 28 2a 2a 73 |..srcKin|d = (**s|
|000063f0| 72 63 49 6e 66 6f 29 2e | 67 72 6f 75 70 4b 69 6e |rcInfo).|groupKin|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.